Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls