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

Package: Inpatient Medications

Routine: PSGOEF1


Information

PSGOEF1 ;BIR/CML3 - FINISH ORDERS ENTERED THROUGH OE/RR (CONT) ;Oct 16, 2020@11:33:47

Source Information

Source file <PSGOEF1.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Inpatient Medications 13 NEWNVAL^PSGAL5  ENWALL^PSGNE3  ENUD^PSGOEF1  VFY^PSGOEV  ENDDC^PSGSICHK  (FILEOPI,FILESI)^PSJBCMA5  UPD^PSJCOM  EN1^PSJHL2  
IV^PSJLIFNI  IN^PSJOCDS  DISACTIO^PSJOE  ($$PADECL,$$PADEWD)^PSJPAD50  $$DRGSTOCK^PSJPADSI  
VA FileMan 4 NOW^%DTC  %XY^%RCR  ^DIE  ^DIR  
List Manager 1 (FULL,PAUSE)^VALM1  
Registration 1 INP^VADPT  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Inpatient Medications 10 PSGOE8  PSGOE9  PSGOEE0  PSGOEF  PSGOEF1  PSGOER0  PSGOERS  PSGOEV  
PSJLIFN  PSJLMGUD  

Entry Points

Name Comments DBIA/ICR reference
UPD ;
ENDRG(PSGPDRG,DRGDA) ; enter dispense drug for order w/o one
DRGH ;
ENIVUD(PSJORD)
ENUD(PSJORD,PSGPD)
THELP(PKG,COI) ;
ENCKDD(PSGP,PSJDRG) ;

External References

Name Field # of Occurrence
NOW^%DTC ENDRG+3
%XY^%RCR UPD+18
^DIE UPD+17, UPD+24, ENDRG+26
^DIR ENDRG+4, ENDRG+19, ENIVUD+13
NEWNVAL^PSGAL5 UPD+26, UPD+27, UPD+28, UPD+30, UPD+31
ENWALL^PSGNE3 UPD+20
ENUD^PSGOEF1 ENIVUD+21
VFY^PSGOEV UPD+32, UPD+33
ENDDC^PSGSICHK ENCKDD+6
FILEOPI^PSJBCMA5 UPD+28
FILESI^PSJBCMA5 UPD+27
UPD^PSJCOM UPD+3
EN1^PSJHL2 UPD+24
IV^PSJLIFNI ENIVUD+17
IN^PSJOCDS ENCKDD+7
DISACTIO^PSJOE ENUD+3
$$PADECL^PSJPAD50 ENDRG+14
$$PADEWD^PSJPAD50 ENDRG+15
$$DRGSTOCK^PSJPADSI ENDRG+17
INP^VADPT ENDRG+11
FULL^VALM1 ENIVUD+9
PAUSE^VALM1 ENIVUD+16, ENIVUD+19, ENIVUD+20
$$GET^XPAR ENDRG+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"...accepting order..."
  • Line Location: UPD+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+17
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPD+18
Function Call: WRITE
  • Prompt: $C(7),!!,"No dispense drugs were found for this order's Orderable Item."
  • Line Location: ENDRG+4
Function Call: WRITE
  • Prompt: !?3,$J(Q,3),". ",$P(DRG(Q),"^",2),?60,$$DRGSTOCK^PSJPADSI(DFN,$G(PSGORD),,,+$G(DRG(Q)))
  • Line Location: ENDRG+17
Function Call: WRITE
  • Prompt: !!,"CHOOSE FROM:"
  • Line Location: ENDRG+18
Function Call: WRITE
  • Prompt: !?3,$J(Q,3),". ",$P(DRG(Q),"^",2)
  • Line Location: ENDRG+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDRG+19
Function Call: WRITE
  • Prompt: !!,$P(DRG(Q2),U,2)
  • Line Location: ENDRG+26
Function Call: WRITE
  • Prompt: !!?2,"This order must have at least one dispense drug before it can be completed.",!,"Select one or more items listed. For each item selected, you will be",!,"prompted for the UNITS PER DOSE for the item."
  • Line Location: DRGH+1
Function Call: WRITE
  • Prompt: !!!!,"You need the PSJI RNFINISH key to finish this order as IV!"
  • Line Location: ENIVUD+16
Function Call: WRITE
  • Prompt: !!!!,"You need the PSJ RNFINISH key to finish this order as Unit Dose!"
  • Line Location: ENIVUD+19
Function Call: WRITE
  • Prompt: !!!!,"You may not finish this order as Unit Dose!"
  • Line Location: ENIVUD+20
Function Call: WRITE
  • Prompt: !,"Choose the package this order should be completed as a IV or Unit Dose order",!
  • Line Location: THELP+1
Routine Call
  • DIE
  • Line Location:
    • UPD+17
    • UPD+24
    • ENDRG+26
Routine Call
  • DIR
  • Line Location:
    • ENDRG+4
    • ENDRG+19
    • ENIVUD+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.1 - [#53.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] UPD+5*, UPD+6*, UPD+13, UPD+19, UPD+20, UPD+25*, ENDRG+13, ENIVUD+7, ENUD+1
^PS(53.45 - [#53.45] UPD+27, UPD+28, ENDRG+23*, ENDRG+25*, ENDRG+29*
^PS(55 - [#55] UPD+20, UPD+21, UPD+22, ENDRG+13
^PSDRUG - [#50] ENDRG+3
^PSDRUG("ASP" ENDRG+3
^SC - [#44] UPD+30

Label References

Name Line Occurrences
ENCKDD ENDRG+27

Naked Globals

Name Field # of Occurrence
^("I" ENDRG+3
^(0 ENDRG+3
^(2 UPD+25*, ENDRG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENDRG+3
>> %X UPD+18*
>> %Y UPD+18*
>> CHK ENDRG+4*, ENDRG+6*, ENDRG+29*
COI THELP~
DA UPD+4!*, UPD+5, UPD+6, UPD+20, UPD+22!*, ENDRG+26*
DA(1 UPD+22*, ENDRG+26*
DFN ENDRG+10~*, ENDRG+17, ENUD+1*, ENUD+3
>> DIE UPD+4*, UPD+22*, ENDRG+26*
DIR ENDRG+4!, ENDRG+19~, ENIVUD+6~, ENIVUD+13!
DIR("?" ENDRG+19*
DIR("??" ENIVUD+12*
DIR("A" ENDRG+19*, ENIVUD+11*
DIR("B" ENDRG+19*, ENIVUD+11*, ENIVUD+12
DIR(0 ENDRG+4*, ENDRG+19*, ENIVUD+11*
DIRUT ENIVUD+6~
DR UPD+4!*, UPD+7*, UPD+9*, UPD+10*, UPD+15*, UPD+16*, UPD+22!*, UPD+23*, ENDRG+26*
DRG ENDRG+3!*, ENDRG+4, ENDRG+5, ENDRG+6*, ENDRG+17, ENDRG+18, ENDRG+19, ENDRG+21*, ENDRG+24, ENUD+2!
, ENCKDD+4~
DRG( ENDRG+3*, ENDRG+17, ENDRG+18, ENDRG+22, ENDRG+25, ENDRG+26
DRGDA ENDRG~, ENDRG+23, ENDRG+25*, ENDRG+26, ENDRG+29
DRGOC ENUD+2!
DRGT ENUD+2!
DRGTMP ENUD+2!
>> DTOUT ENIVUD+14
>> DUOUT ENIVUD+14
DUZ UPD+27, UPD+28
ERR ENUD+2!
OLCLN UPD+12~, UPD+13*, UPD+30, UPD+31
ON ENUD+2!
ON55 ENUD+2!
P ENUD+2!
P("APPT" UPD+14, UPD+16, UPD+31
P("APPTO" UPD+16
P("CLIN" UPD+14, UPD+15, UPD+30
P("CLINO" UPD+15
PKG THELP~
>> PSGAT UPD+25
>> PSGDI ENDRG+28*
>> PSGDO UPD+25
>> PSGDT UPD+20
>> PSGDUR UPD+9, UPD+23
>> PSGFD UPD+4, UPD+22
>> PSGHSM UPD+10
>> PSGND UPD+19*, UPD+21, UPD+22, UPD+24
>> PSGOEAV UPD+26, UPD+32, UPD+33
>> PSGOEER ENCKDD+2, ENCKDD+3
>> PSGOEEWF UPD+18
>> PSGOEFF UPD+7
>> PSGOHSM UPD+10
>> PSGORD UPD+4, UPD+5, UPD+6, UPD+13, UPD+19, UPD+25, UPD+26, UPD+27, UPD+28, UPD+30
UPD+31, ENDRG+10, ENDRG+13, ENDRG+17, ENCKDD+7
PSGORQF ENDRG+2!, ENDRG+27, ENUD+4, ENCKDD+5*, ENCKDD+6
PSGP UPD+20, UPD+21, UPD+22, UPD+24, UPD+27, UPD+28, ENDRG+10, ENDRG+13, ENDRG+27, ENCKDD~
, ENCKDD+6
PSGPD ENUD~
PSGPDRG ENDRG~, ENDRG+3
>> PSGRF UPD+9, UPD+23
>> PSGRMV UPD+9, UPD+23
>> PSGRMVT UPD+9, UPD+23
>> PSGS0XT UPD+25
>> PSGSCH UPD+2, UPD+7
>> PSGSD UPD+4, UPD+21
>> PSGSI UPD+5, UPD+6
>> PSGSM UPD+10
>> PSGST UPD+2*, UPD+4
PSJALLGY ENDRG+1~
PSJALLGY( ENDRG+22*
PSJALLGY(0 ENDRG+27
PSJCLNK ENDRG+10~, ENDRG+14*, ENDRG+15
PSJCOI ENIVUD+6~, ENIVUD+7*, ENIVUD+12, ENIVUD+17, ENIVUD+21
>> PSJCOM UPD+3
PSJDRG ENCKDD~, ENCKDD+6, ENCKDD+7
>> PSJIRNF ENIVUD+16
>> PSJITECH ENIVUD+20
PSJND0 ENIVUD+6~, ENIVUD+7*, ENIVUD+8, ENIVUD+10, ENIVUD+11
PSJORCL ENDRG+10~, ENDRG+13*, ENDRG+14
PSJORD ENDRG+10~*, ENIVUD~, ENIVUD+7, ENIVUD+17, ENIVUD+21, ENUD~, ENUD+1, ENUD+3
PSJPADLK ENDRG+7~, ENDRG+16*, ENDRG+18
>> PSJPNV ENUD+3
>> PSJRNF UPD+33, ENIVUD+19
PSJSTAR ENUD+2!
>> PSJSYSP UPD+18, ENDRG+23, ENDRG+25, ENDRG+26, ENDRG+29
>> PSJSYSU UPD+26, UPD+32, ENIVUD+16, ENIVUD+19, ENIVUD+20
PSJTIM ENUD+2!
PSJTUD ENUD+1~*
>> Q UPD+18*, ENDRG+3*, ENDRG+17*, ENDRG+18*
>> Q1 ENDRG+21*, ENDRG+24*
>> Q2 ENDRG+21*, ENDRG+22, ENDRG+24*, ENDRG+25, ENDRG+26
SIARRAY UPD+27~*, UPD+28~*
U UPD+5, UPD+6, UPD+19, UPD+20, UPD+21, UPD+22, UPD+24, UPD+25, ENDRG+3, ENDRG+19
, ENDRG+26, ENIVUD+8, ENIVUD+10, ENIVUD+11, ENUD+1
UL80 ENUD+2!
VAIN ENDRG+11~
VAIN(4 ENDRG+11, ENDRG+15
>> VALMBCK ENIVUD+16*, ENIVUD+19*, ENIVUD+20*, ENUD+3*, ENUD+4*
>> X UPD+19*, UPD+20*, ENDRG+3*
Y ENDRG+6, ENIVUD+6~, ENIVUD+15, ENIVUD+18
Y(0 ENDRG+5*, ENDRG+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