Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RMPFDT1

Package: Remote Order Entry System

Routine: RMPFDT1


Information

RMPFDT1 ;DDC/KAW-PATIENT ORDER INFORMATION; [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFDT1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Remote Order Entry System 3 (,CONT)^RMPFDT2  ^RMPFDT5  PAT^RMPFUTL  
Kernel 1 ^%ZISC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Remote Order Entry System 7 RMPFDT  RMPFDX  RMPFEA  RMPFEC  RMPFES  RMPFET  RMPFET84  

Entry Points

Name Comments DBIA/ICR reference
END
DISP
CON
DISPE
HEADP
HEADP1
HEADS
PROMPT ;;

External References

Name Field # of Occurrence
^%ZISC CON+7
^RMPFDT2 DISP+9
CONT^RMPFDT2 CON+2, CON+4, CON+5
^RMPFDT5 RMPFDT1+10
PAT^RMPFUTL RMPFDT1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?29,"*** UNREAD MESSAGE ***"
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>47
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: ?43,"[",CN,"]"
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: ?47,$J(Y,12),": ",$E(@Z,1,19)
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: "[",CN,"]"
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: ?2
  • Condition for execution: Z="RMPFRMK"
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: $J(Y,$S(Z'="RMPFRMK":12,1:8)),": ",$E(@Z,1,$S(Z'="RMPFRMK":19,1:70))
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: !!,"Missing Required Information:"
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: $C(7),!,"*** ",X," ***"
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+2
Function Call: WRITE
  • Prompt: !!,"Message:"
  • Line Location: CON+3
Function Call: WRITE
  • Prompt: $C(7),!,X
  • Line Location: CON+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+4
Function Call: WRITE
  • Prompt: $C(7),!!,?80-$L(X)\2,X
  • Line Location: CON+5
Function Call: WRITE
  • Prompt: @IOF,!?22,"REMOTE ORDER/ENTRY ORDER INFORMATION"
  • Line Location: HEADP+0
Function Call: WRITE
  • Prompt: !,"Station: ",RMPFSTAP,?68,RMPFDAT
  • Line Location: HEADP1+0
Function Call: WRITE
  • Prompt: !,"Patient: ",$E(RMPFNAM,1,25),?40,"SSN: ",RMPFSSN,?62,"DOB: ",RMPFDOB
  • Line Location: HEADP1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADP1+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADP1+2
Function Call: WRITE
  • Prompt: @IOF,!!?18,"REMOTE ORDER/ENTRY STATION ORDER INFORMATION"
  • Line Location: HEADS+0
Function Call: WRITE
  • Prompt: !,"Station: ",RMPFSTAP,?68,RMPFDAT
  • Line Location: HEADS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADS+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADS+2
Function Call: WRITE
  • Prompt: RMPFAPD
  • Line Location: PROMPT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPF(791810 - [#791810] RMPFDT1+4, RMPFDT1+6, DISP+1
^RMPF(791810.1 - [#791810.1] RMPFDT1+9, DISP+5, DISP+8, DISP+9, DISP+10, CON+5

Label References

Name Line Occurrences
@( RMPFDT1+11
DISP RMPFDT1+11
END RMPFDT1+10, RMPFDT1+11

Naked Globals

Name Field # of Occurrence
^( DISP+1
^(0 RMPFDT1+9, DISP+1, DISP+5, DISP+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CN END!, DISP*, DISP+5, DISP+6, DISP+7*, DISP+8, DISP+12, DISP+13*
CR DISP+8*, DISP+9, DISP+10, DISPE+4!
CX DISPE+4!
>> DFN RMPFDT1+7*
>> I DISP+1*, DISP+3*, CON+2*, CON+4*, HEADP1+2*, HEADS+2*
IO("S" CON+7
IOF CON+2, CON+4, CON+6, HEADP, HEADS
IOST CON+6
>> J DISP+1*
L DISP+8*, DISPE+4!
RMPFAD DISPE+4!
RMPFADP DISPE!
RMPFAPD DISPE!
RMPFAPP DISPE!
RMPFCAT DISPE+1!
RMPFCERD DISPE+1!
RMPFCERU DISPE+1!
RMPFCUR DISPE+2!
>> RMPFDAT HEADP1, HEADS+1
RMPFDC DISPE!
RMPFDDC DISPE!
RMPFDIS DISPE!
RMPFDOB RMPFDT1+6*, END!, HEADP1+1
RMPFDOD END!
RMPFDR DISPE!
RMPFDSN DISPE+2!
>> RMPFEDIT DISP+6, DISP+12
>> RMPFERR CON+1
>> RMPFERR( CON+2
>> RMPFHAT RMPFDT1+9*
RMPFINV DISPE+2!
RMPFLIS DISPE+3!
RMPFMD DISPE+2!
RMPFMGG DISP+1*, DISP+2, DISPE+3!
RMPFMSG END!, CON+2, CON+3
RMPFMSG( CON+4
RMPFNAM RMPFDT1+6*, END!, HEADP1+1
RMPFO DISPE+3!
RMPFOD END!
RMPFODP DISPE!
>> RMPFOUT RMPFDT1+10, CON+2, CON+4
RMPFPCT DISPE+3!
RMPFPG DISPE+3!
RMPFPO DISPE+2!
RMPFPSC DISPE+3!
RMPFRDC DISPE+2!
RMPFRMK DISPE+1!
RMPFSSN RMPFDT1+6*, END!, HEADP1+1
>> RMPFST RMPFDT1+8*
>> RMPFSTAP HEADP1, HEADS+1
RMPFSTP DISPE+1!
RMPFTA CON, DISPE+3!
RMPFTDP DISPE+2!
RMPFTF DISPE+1!
>> RMPFTP RMPFDT1+9*, RMPFDT1+11
RMPFTT DISPE+3!
>> RMPFTYP RMPFDT1+8*, RMPFDT1+9, DISP+5, DISP+8, DISP+9, DISP+10, CON+5
RMPFTYPP DISPE+3!
RMPFURP DISPE+1!
RMPFUS DISPE+1!
>> RMPFX RMPFDT1+4, RMPFDT1+6, DISP+1
RMPFY END!
>> S0 RMPFDT1+6*, RMPFDT1+7, RMPFDT1+8
S4 DISPE+4!
U RMPFDT1+7, RMPFDT1+8, RMPFDT1+9, DISP+1, DISP+5, DISP+9, DISP+10, CON+5
X DISP+1*, DISP+3*, DISP+4, CON+2*, CON+4*, CON+5*, DISPE+4!
Y DISP+1*, DISP+5*, DISP+6, DISP+7, DISP+10*, DISP+11, DISP+13, DISPE+4!
Z DISP+5*, DISP+6, DISP+7, DISP+10*, DISP+11, DISP+12, DISP+13, DISPE+4!

Marked Items

Name Field # of Occurrence
$T(PROMPT+I DISP+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All