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: PSGOEF

Package: Inpatient Medications

Routine: PSGOEF


Information

PSGOEF ;BIR/CML - FINISH ORDERS ENTERED THROUGH OE/RR ;12 June 2019 09:31:53

Source Information

Source file <PSGOEF.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
ZZ
FINISH ;
; force display of second screen if CPRS order checks exist
ACCEPT ;
BYPASS ;
DONE ;
ABORTACC ; Abort Accept process.
31 ;;101^PSGOE8;PSGOPD;PSGPD;101;1
32 ;;109^PSGOE8;PSGODO;PSGDO;109;PSGODO]""
33 ;;10^PSGOE81;PSGOSD;PSGSD;10;0
34 ;;3^PSGOE8;PSGOMR;PSGMR;3;1
35 ;;25^PSGOE81;PSGOFD;PSGFD;25;0
36 ;;7^PSGOE8;PSGOST;PSGST;7;0
37 ;;5^PSGOE82;PSGOSM;PSGSM;5;0
38 ;;26^PSGOE8;PSGOSCH;PSGSCH;26;1
39 ;;39^PSGOE81;PSGOAT;PSGAT;39;0
310 ;;1^PSGOE82;PSGOPR;PSGPR;1;1
311 ;;8^PSGOE81;PSGOSI;PSGSI;8;0
312 ;;2^PSGOE82;;;2;0
313 ;;40^PSGOE82;;;40;0
AH ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!?3,"Cannot find this pending order (#",+PSGORD,")."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"**WARNING**"
  • Line Location: FINISH+42
Function Call: WRITE
  • Prompt: !,"The highlighted admin times for these portions of this complex order overlap.",!!
  • Line Location: FINISH+43
Function Call: WRITE
  • Prompt: $S($P(X1,"^",4)=1:IORVON,1:""),"Part "_X,IORVOFF," has a schedule of "_$P(X1,"^",2)_" and admin time(s) of "
  • Line Location: FINISH+46
Function Call: WRITE
  • Prompt: $S($P(X1,"^",4)=1:IORVON,1:""),$P(X1,"^",3),IORVOFF
  • Line Location: FINISH+47
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+48
Function Call: WRITE
  • Prompt: $S($G(PSJOVR("CONJ",X))="A":"AND",$G(PSJOVR("CONJ",X))="T":"THEN",1:""),!
  • Line Location: FINISH+49
Function Call: WRITE
  • Prompt: !,"Please ensure the schedules and administration times are appropriate.",!
  • Line Location: FINISH+50
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+51
Function Call: WRITE
  • Prompt: $C(7),!!,"PLEASE NOTE: This order's admin times (",PSGAT,")"
  • Line Location: FINISH+63
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+66
Function Call: WRITE
  • Prompt: $C(7),!!,"INVALID STOP DATE"
  • Condition for execution: PSJRMABT
  • Line Location: FINISH+82
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+82
Function Call: WRITE
  • Prompt: $C(7),!!,"PLEASE NOTE: This order must have"
  • Line Location: FINISH+87
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(Y)+$X>78
  • Line Location: FINISH+87
Function Call: WRITE
  • Prompt: Y," "
  • Line Location: FINISH+87
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+89
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+94
Function Call: WRITE
  • Prompt: !!
  • Line Location: FINISH+99
Function Call: WRITE
  • Prompt: $C(7),!!,"ACCEPTING THIS ORDER WILL CHANGE THE STATUS TO ACTIVE."
  • Line Location: FINISH+136
Function Call: WRITE
  • Prompt: !!?2,"Answer 'YES' to accept this order as a NON-VERIFIED UNIT DOSE order. Answer",!,"'NO' to edit this order now. Enter '^' to BYPASS this order, leaving it as",!,"a PENDING INPATIENT order."
  • Line Location: AH+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.7 - [#50.7] GET1^DIQ
^PS(51.1 - [#51.1] FIND^DIC
53.4502 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call