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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGOE42

Package: Inpatient Medications

Routine: PSGOE42


Information

PSGOE42 ;BIR/CML - REGULAR ORDER ENTRY (CONT.) ;Feb 02, 2022

Source Information

Source file <PSGOE42.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 ^DIC  YN^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Inpatient Medications 4 $$ENLU^PSGMI  $$ACTPRO^PSGOE1  (ENFF,ENHLP)^PSGOEM  ($$ISCLOZ,PROVCHK)^PSJCLOZ  
Pharmacy Data Management 2 INDCATN^PSS50P7  $$OIDEA^PSSOPKI  
Kernel 1 $$SDEA^XUSER  

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

Package Total Caller Graph
Inpatient Medications 6 PSGOE3  PSGOE4  PSGOE41  PSGOEE  PSGOEF1  PSIVORC2  

Entry Points

Name Comments DBIA/ICR reference
1
A1 ;
A2 ;; START NCC T4 MODS >> 327*RJS
5 ; self med
A5
6 ; hospital supplied self med
DONE ;
FF ; up-arrow to another field
DEL ; delete entry
YN ; yes/no as a set of codes
2 ; dispense drug multiple
IND(OI) ;*399-IND
INDA ;
CIND ;
DIFFIND(PSJDFN,PSJORD,PSJNEWVL) ;
; PSJDFN = IEN of #2 (not required for non-verified orders)
; PSJORD = IEN of #53.1/55 + indication like "P","U","V", example = "4033P"
; PSJNEWVL the new value after editing
; returns:
; piece #1
; 1=different than the previous value
; 0=no changes
; -1=new record, no previous values
; piece #2 = value before editing if any (current value in DB)
; piece #3 = new value

External References

Name Field # of Occurrence
^DIC A1+8
YN^DICN DEL+1
^DIE 2+2
$$GET1^DIQ A1+5, DIFFIND+18, DIFFIND+24
^DIR INDA+15, CIND+4
$$ENLU^PSGMI CIND+13
$$ACTPRO^PSGOE1 A1+2
ENFF^PSGOEM FF+1
ENHLP^PSGOEM A1+4, A1+6, A5+4, A5+6, 6+5, 6+7
$$ISCLOZ^PSJCLOZ A2+1
PROVCHK^PSJCLOZ A2+2
INDCATN^PSS50P7 INDA+4
$$OIDEA^PSSOPKI 1+7
$$SDEA^XUSER A2+7

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: !,"PROVIDER: ",$S(PSGPR:PSGPRN_"// ",1:"")
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: $C(7)," (Required)"
  • Line Location: A1+4
Function Call: WRITE
  • Prompt: " "_$$GET1^DIQ(200,PSGPR,53.2)_" "_$$GET1^DIQ(200,PSGPR,53.3)
  • Line Location: A1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: A2+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: !,"SELF MED: "
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGSM+1),"// "
  • Condition for execution: PSGSM]""
  • Line Location: A5+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: A5+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: !,"HOSPITAL SUPPLIED SELF MED: "
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: $P("NO^YES","^",PSGHSM+1),"// "
  • Condition for execution: PSGHSM]""
  • Line Location: 6+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: 6+7
Function Call: WRITE
  • Prompt: $C(7)," <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: $P(Y,X,2)
  • Line Location: YN+2
Function Call: WRITE
  • Prompt: $C(7),!!,"WARNING: This order must have at least one dispense drug before pharmacy can",!?9,"verify it!"
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: !,"INDICATION:"
  • Line Location: INDA+10
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED WITHOUT SPACES.",!
  • Line Location: CIND+8
Function Call: WRITE
  • Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED BETWEEN SPACES.",!
  • Line Location: CIND+10
Routine Call
  • DIC
  • Line Location:
    • A1+8
Routine Call
  • DIE
  • Line Location:
    • 2+2
Routine Call
  • DIR
  • Line Location:
    • INDA+15
    • CIND+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls,  GET1^DIQ
^PS(53.1 - [#53.1] GET1^DIQ
^PS(53.45 - [#53.45] Classic Fileman Calls
55.06 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] DIFFIND+17
^PS(53.45 - [#53.45] 2+1, 2+3
^PS(55 - [#55] DIFFIND+23
^TMP($J INDA+5, INDA+6, INDA+7

Label References

Name Line Occurrences
1 A1+4, A1+7, A1+8
5 1+10
6 A5+5, 6+3, 6+4, 6+5, 6+7
@( A1+7, A5+3, 6+4, 2+5
A1 1+5, 1+9, A2+4, A2+7
A2 A1+5
A5 A5+2, A5+3, A5+4, A5+6
CIND INDA+3, INDA+5, INDA+17, CIND+1
DEL A5+2, 6+3, INDA+18, CIND+6
DONE 1+10, A1+3, 5+1, A5, A5+1, A5+2, A5+5, 6+1, 6+2, 6+3
, 6+6
FF A1+7, A5+3, 6+4
INDA INDA+18, INDA+19, CIND+6, CIND+7
YN A5+5, 6+6

Naked Globals

Name Field # of Occurrence
^(1 2+1*
^(2 2+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A5+2, 6+3, DEL+1*, INDA+18, CIND+6
ANQX A2+2*, A2+3, A2+4!
CHK INDA+1~, INDA+2*, INDA+8*, INDA+13, INDA+17
CNT INDA+1~, INDA+2*, INDA+9*
CURRVAL DIFFIND+11~*, DIFFIND+15, DIFFIND+17*, DIFFIND+18*, DIFFIND+19, DIFFIND+21, DIFFIND+23*, DIFFIND+24*, DIFFIND+25
DA 2+2!*, CIND+1~
DIC A1+8!*
DIC("S" A1+8*
DIC(0 A1+8*
>> DIE 2+2*
DIR INDA+1~, CIND+2!
DIR("?" INDA+14*
DIR("A" INDA+11*, CIND+4*
DIR("B" INDA+13*, CIND+3*
DIR("L" INDA+9*, INDA+12*
DIR(0 INDA+11*, CIND+4*
DIROUT INDA+1!, INDA+16, CIND+2!, CIND+5
DIRUT INDA+1!, CIND+2!
DR 2+2!*
DR(2 2+2*
DTIME A1+3, A5, 6+1
DTOUT INDA+1!, INDA+16, CIND+2!, CIND+5
DUOUT INDA+1!, CIND+2!
F DONE+1!
F0 DONE+1!
F1 DONE+1!
F3 DONE+1!
>> FB 2+5
I INDA+1~, INDA+6*, INDA+7, CIND+1~, CIND+9*
IND CIND+1~, CIND+9*, CIND+11*, CIND+13
INDCAT INDA+1~, INDA+7*, INDA+8, INDA+9
INDLST INDA+1~
INDLST( INDA+9*
J CIND+1~, CIND+9*, CIND+10, CIND+11
OI IND~, INDA+3, INDA+4
PDEA 1+4~*, 1+5, 1+8*, A2+7*
PSDEA 1+4~*, 1+7*, 1+8, A2+7, A2+8
PSG DONE+1!
PSGCLOZ 1!
>> PSGDRG A2+1, 2+1
PSGF2 A1+4*, A1+6*, A5+3*, A5+4*, 6+4*, 6+7*, DONE+1!, INDA+2*
>> PSGFOK(1 A1+5*, A1+9*
>> PSGFOK(13 2+2, 2+4
>> PSGFOK(132 INDA+20*, CIND+14*
>> PSGFOK(5 A5+5*
>> PSGHSM A5+2*, 6+1, 6+2*, 6+3*, 6+6*
>> PSGIND INDA+3*, INDA+8, INDA+13, INDA+17*, INDA+18*, INDA+19*, INDA+21*, CIND+3, CIND+6*, CIND+7*
, CIND+13*
>> PSGOEE INDA+16, CIND+5
>> PSGOROE1 A1+3*, A5*, 6+1*, INDA+16*, CIND+5*
>> PSGPDRG 1+5, 1+7
>> PSGPR 1+1*, 1+9, 1+11, A1+2*, A1+3, A1+4, A1+5, A1+9*, A2+2, A2+4*
, A2+7
>> PSGPRN 1+1*, 1+9, 1+11, A1+2*, A1+3, A1+5, A1+9*, A2+4*
>> PSGSM A5, A5+1*, A5+2*, A5+5*
>> PSGUD 2+1
PSJACT A1+2~*
PSJDEA 1+4~, 1+7*
PSJDFN DIFFIND~, DIFFIND+21, DIFFIND+23, DIFFIND+24
PSJNEWVL DIFFIND~, DIFFIND+13*, DIFFIND+15, DIFFIND+19, DIFFIND+21, DIFFIND+25
PSJORD DIFFIND~, DIFFIND+15, DIFFIND+17, DIFFIND+18, DIFFIND+21, DIFFIND+23, DIFFIND+24
>> PSJPROT 1+6
>> PSJSYSP 2+1, 2+2, 2+3
>> PSJSYSU 1+9, 1+10
>> PSJSYSW0 1+10, 5+1
PSPPKG 1+4~, 1+6*, 1+7
PSTMPI 1+9*, 1+11*, A2+3!, A2+4
PSTMPN 1+9*, 1+11*, A2+3!, A2+4
SDT DONE+1!
SEL INDA+1~, INDA+6*, INDA+9*, INDA+11
STATUS DIFFIND+12~*, DIFFIND+15, DIFFIND+17*, DIFFIND+19*, DIFFIND+21, DIFFIND+23*, DIFFIND+25*
U DIFFIND+15, DIFFIND+21
X A1+3*, A1+4*, A1+5*, A1+6, A1+7, A5*, A5+1, A5+2, A5+3, A5+4
, A5+5, 6+1*, 6+2, 6+3, 6+4, 6+5, 6+6, YN+1*, YN+2, INDA+16
, INDA+18, INDA+19, CIND+2!, CIND+5, CIND+6, CIND+7, CIND+8, CIND+9, CIND+10!
Y A1+7, A1+8, A1+9, A5+3, 6+4, FF+1*, YN+1*, YN+2*, INDA+3*, INDA+5*
, INDA+17, INDA+21, CIND+1, CIND+2!, CIND+8*, CIND+9*, CIND+12
Y(0 A1+9, INDA+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All