STANDARD DATA DICTIONARY #663.4 -- PROSTHETIC APPOINTMENT WORKSHEET FILE 9/29/25 PAGE 1
STORED IN ^RMPRA(663.4, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains Scheduled Clinic Visit information to be printed on VAF 10-2527 and AMIS calculations.
DD ACCESS: @
IDENTIFIED BY: PATIENT (#1)
CROSS
REFERENCED BY: CLINIC(AA), CLINIC(AB), APPOINTMENT DATE/TIME(B), PATIENT(C)
663.4,.01 APPOINTMENT DATE/TIME 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 09, 1993
DESCRIPTION:
Scheduled Clinic appointment time.
CROSS-REFERENCE: 663.4^B
1)= S ^RMPRA(663.4,"B",$E(X,1,30),DA)=""
2)= K ^RMPRA(663.4,"B",$E(X,1,30),DA)
663.4,1 PATIENT 0;2 POINTER TO PROSTHETICS PATIENT FILE (#665)
LAST EDITED: OCT 15, 1992
HELP-PROMPT: Enter the Name of the Prosthetics Patient
DESCRIPTION:
Pointer to Prosthetic Patient file 665.
CROSS-REFERENCE: 663.4^C
1)= S ^RMPRA(663.4,"C",$E(X,1,30),DA)=""
2)= K ^RMPRA(663.4,"C",$E(X,1,30),DA)
This cross reference allows lookup on schedules by patient name.
663.4,2 LENGTH OF APP'T 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>120)!(X<5)!(X?.E1"."1N.N) X
LAST EDITED: JUL 22, 1992
HELP-PROMPT: Type a Number between 5 and 120, 0 Decimal Digits
DESCRIPTION:
Length of time the appointment will take place.
663.4,3 APPOINTMENT CANCELLED 0;4 SET
'C' FOR CANCELLED;
LAST EDITED: JUL 22, 1992
HELP-PROMPT: Enter C for 'Cancelled'
DESCRIPTION:
Indicates if appointment was cancelled.
663.4,4 REFERRING STATION 0;5 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: JUL 22, 1992
DESCRIPTION:
Pointer to Institution file #4.
663.4,5 REASON FOR REFERRAL 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
LAST EDITED: JUL 28, 1992
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION:
Free text field that will contain Doctors reason that patient was scheduled for clinic.
663.4,6 ACTION 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
LAST EDITED: JUL 24, 1992
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION:
Action taken on patient during clinic.
663.4,7 CHECK-IN 0;8 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 22, 1992
HELP-PROMPT: Enter the date the Patient checked into the Clinic.
DESCRIPTION:
Contains text if patient checked in.
663.4,8 CLINIC 0;9 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: MAR 06, 1993
HELP-PROMPT: Enter the Clinic that the Patient was Scheduled for.
DESCRIPTION:
Pointer to the Hospital Location file #44.
CROSS-REFERENCE: 663.4^AA^MUMPS
1)= I $D(^RMPRA(663.4,DA)) S ZN=$P(^RMPRA(663.4,DA,0),U,1),ZP=$P(^(0),U,2) S:ZN&ZP ^RMPRA(663.4,"AA
",X,ZN,ZP,DA)="" K ZN,ZP
2)= I $D(^RMPRA(663.4,DA)) S ZN=$P(^RMPRA(663.4,DA,0),U,1),ZP=$P(^(0),U,2) K:ZN&ZP ^RMPRA(663.4,"AA
",X,ZN,ZP,DA) K ZN,ZP
Allows checking of already existing Appointment Worksheet entires and Sorting by Clinic,
Appointment Date/Time and Patient.
CROSS-REFERENCE: 663.4^AB^MUMPS
1)= S ZP=$P(^RMPRA(663.4,DA,0),U) S:ZP ^RMPRA(663.4,"AB",X,ZP,DA)="" K ZP
2)= S ZP=$P(^RMPRA(663.4,DA,0),U) K:ZP ^RMPRA(663.4,"AB",X,ZP,DA) K ZP
This x-ref allows sorting by clinic and date of appointment.
663.4,9 CLOSED DATE/TIME 0;10 DATE
INPUT TRANSFORM: S %DT="ETR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 24, 1992
HELP-PROMPT: Enter the Date/Time that the Clinic Visit was closed.
DESCRIPTION:
this is the date and time the clinic visit was closed out.
663.4,10 STATUS 0;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
LAST EDITED: FEB 26, 1993
HELP-PROMPT: Answer must be 3-40 characters in length.
DESCRIPTION:
Contains the reason why the patient did not attend the Scheduled Clinic Appointment.
663.4,11 START DATE/TIME 0;12 DATE
INPUT TRANSFORM: S %DT="ETR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 14, 1993
HELP-PROMPT: Enter the Clinic Start Date/Time
DESCRIPTION:
This is the Clinic start time and date.
FILES POINTED TO FIELDS
HOSPITAL LOCATION (#44) CLINIC (#8)
INSTITUTION (#4) REFERRING STATION (#4)
PROSTHETICS PATIENT (#665) PATIENT (#1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
RMPR 2527 HDR JUN 14, 1995@04:23 USER #0 @
Prints header for Prosthetics Appointment Roster and Action Sheet.
RMPR 2527 PHDR JUN 14, 1995@04:27 USER #0 @
Prints a list of Prosthetic appointments for the current day by clinic.
RMPR CLINIC PRINT APR 09, 1993@14:59 USER #0 APPOINTMENT ROSTER AND ACTION SHEET
Prints a clinic list.
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):