Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^RMPRA(663.4

Package: Prosthetics

Global: ^RMPRA(663.4


Information

FileMan FileNo FileMan Filename Package
663.4 PROSTHETIC APPOINTMENT WORKSHEET Prosthetics

Description

Directly Accessed By Routines, Total: 8

Package Total Routines
Prosthetics 5 HO LETTER 3 LIST    RMPR CLINIC PRINT    RMPR CLOSED VISITS    RMPR FL 10-90 ADP    ^RMPRA(663.4    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 1 INSTITUTION(#4)[4]    
Prosthetics 1 PROSTHETICS PATIENT(#665)[1]    
Scheduling 1 HOSPITAL LOCATION(#44)[8]    

Fields, Total: 12

Field # Name Loc Type Details
.01 APPOINTMENT DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • 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)
1 PATIENT 0;2 POINTER TO PROSTHETICS PATIENT FILE (#665) PROSTHETICS PATIENT(#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.
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.
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.
4 REFERRING STATION 0;5 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  JUL 22, 1992
  • DESCRIPTION:  
    Pointer to Institution file #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.
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.
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.
8 CLINIC 0;9 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#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.
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.
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.
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.

External References

Name Field # of Occurrence
^%DT .01+1, 7+1, 9+1, 11+1
Y^DIQ ID1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(665 ID1+1
^RMPR(665 - [#665] ID1+1
^RMPRA(663.4 - [#663.4] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K)

Naked Globals

Name Field # of Occurrence
^(0 ID1+1, 8(XREF 1S), 8(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 7+1*, 9+1*, 11+1*
%I ID1+1*!
>> C ID1+1*
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K)
>> DIC ID1+1
U ID1+1, 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1!, 5+1!, 6+1!, 7+1*!, 8(XREF 1S)
, 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 9+1*!, 10+1!, 11+1*!
>> Y ID1+1*, .01+1, 7+1, 9+1, 11+1
ZN 8(XREF 1S), 8(XREF 1K)
ZP 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K)
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All