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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSGOE4

Package: Inpatient Medications

Routine: PSGOE4


Information

PSGOE4 ;BIR/CML3 - REGULAR ORDER ENTRY ;Jun 18, 2020@14:04:03

Source Information

Source file <PSGOE4.m>

Entry Points

Name Comments DBIA/ICR reference
109 ; dosage ordered
13 ; units per dose
A13 ;
S13 ;
3 ; med route
26 ; schedule
7 ; schedule type
DONE ;
FF ; up-arrow to another field
DEL ; delete entry
MRSL ;check for OI med route short list;
CKMRSL ;;check for med route short list leading letters ;*525

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 109+2
Function Call: WRITE
  • Prompt: !,"DOSAGE ORDERED: ",$S(PSGDO]"":PSGDO_"// ",1:"")
  • Line Location: 109+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 109+3
Function Call: WRITE
  • Prompt: $C(7)," ",$S(X?1.P!(X=""):"(Required)",1:"??")
  • Line Location: 109+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A13+1
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A13+3
Function Call: WRITE
  • Prompt: " ("_$E("0",X<1)_X_")"
  • Line Location: A13+7
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: A13+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !,"MED ROUTE: ",$S(PSGMR:PSGMRN,1:"")_"// "
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: " "_$P(^(0),"^",3)
  • Line Location: 3+2
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 3+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 26+1
Function Call: WRITE
  • Prompt: !,"SCHEDULE: ",$S(PSGSCH]"":PSGSCH_"// ",1:"")
  • Line Location: 26+1
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: 26+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 26+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 7+10
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: 7+10
Function Call: WRITE
  • Prompt: " "_PSGSTN
  • Line Location: 7+11
Function Call: WRITE
  • Prompt: " "_PSGSTN
  • Line Location: 7+15
Function Call: WRITE
  • Prompt: $P($P(Y,"^",2),X,2)
  • Line Location: 7+16
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: 7+17
Function Call: WRITE
  • Prompt: $C(7)," ...order not entered..."
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,?10,I_" "_$P(^TMP("PSJMR",$J,I),U)_" "_$P(^TMP("PSJMR",$J,I),U,2)
  • Line Location: MRSL+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(51.2 - [#51.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call