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

Package: Inpatient Medications

Routine: PSGPEN


Information

PSGPEN ;BIR/CML3 - FIND DEFAULT FOR PRE-EXCHANGE NEEDS ;15 May 2019 16:15:59

Source Information

Source file <PSGPEN.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 7 $$ENDTC^PSGMI  $$DEFON^PSGPER1  ^PSGPL0  $$LASTREN^PSJLMPRI  ($$PADECL,$$PADEWD)^PSJPAD50  $$DRGQTY^PSJPADSI  $$DATE2^PSJUTL2  
VA FileMan 4 NOW^%DTC  ^DIE  GETS^DIQ  ^DIR  
Kernel 1 $$DT^XLFDT  

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

Package Total Caller Graph
Inpatient Medications 7 PSGOD  PSGOEE  PSGOER  PSGOETO  PSGOEV  PSJCOM1  PSJOE1  

Entry Points

Name Comments DBIA/ICR reference
EN(PSGPENO) ;
UPDD ;
DONE ;
NCE ;
GF ;
DD ;
DH ;
PSGPENWS ;
WH ;
WDH ;
PADE(PSJPWD,PSGP,PSGORD)

External References

Name Field # of Occurrence
NOW^%DTC EN+5, DD+8
^DIE DD+5
GETS^DIQ PADE+11
^DIR UPDD+1, PSGPENWS+3, PSGPENWS+4
$$ENDTC^PSGMI NCE+1
$$DEFON^PSGPER1 DONE+1
^PSGPL0 EN+16
$$LASTREN^PSJLMPRI EN+14
$$PADECL^PSJPAD50 PADE+17
$$PADEWD^PSJPAD50 PADE+18
$$DRGQTY^PSJPADSI PADE+23, PADE+25
$$DATE2^PSJUTL2 EN+15
$$DT^XLFDT EN+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The dispense drug",$S(PSJPADE>1:"s",1:"")," for this order ",$S(PSJPADE>1:"are",1:"is a")," PADE item",$S(PSJPADE>1:"s",1:""),"."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,"The dispense drug",$S(PSJPADE>1:"s",1:"")," for this order ",$S(PSJPADE>1:"are",1:"is a")," WARD STOCK/PADE item",$S(PSJPADE>1:"s",1:""),"."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"The dispense drug",$E("s",$P(PSGPENWS,"^",2))," for this order ",$S($P(PSGPENWS,"^",2):"are",1:"is a")," WARD STOCK item",$E("s",$P(PSGPENWS,"^",2)),"."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,"...updating dispense drug(s)..."
  • Line Location: UPDD+1
Function Call: WRITE
  • Prompt: !!,"The next cart exchange is ",$$ENDTC^PSGMI(PSGPLF),!
  • Line Location: NCE+1
Function Call: WRITE
  • Prompt: !,"...",DRG,?45,"U/D: ",UD,"..."
  • Line Location: DD+2
Function Call: WRITE
  • Prompt: !!?2,"Enter a number from 0 to 9999, 0 decimal digits."
  • Line Location: DH+1
Function Call: WRITE
  • Prompt: !!?2,"Enter the number of DOSES needed for this order until the next cart exchange.",!,"This will be the number of times the order will be administered to the patient",!,"from the start of the order until the next cart exchange."
  • Line Location: DH+2
Function Call: WRITE
  • Prompt: !!?2,"PLEASE NOTE that this is DOSES, and NOT UNITS. The doses entered will be",!,"converted to units for each dispense drug of this order, as each dispense drug",!,"may have different units per dose."
  • Line Location: DH+3
Function Call: WRITE
  • Prompt: !,"This dispense drug is a WARD STOCK item."
  • Line Location: PSGPENWS+1
Function Call: WRITE
  • Prompt: !,"Would you like to:",!?3,"1 - Enter 0 (no) doses needed for this dispense drug.",!?3,"2 - Enter ",PSGDA," doses needed for this dispense drug.",!?3,"3 - Enter another amount as the doses needed for this dispense drug."
  • Line Location: PSGPENWS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PSGPENWS+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L(Q2)>78
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: Q2," "
  • Line Location: WH+2
Function Call: WRITE
  • Prompt: !?3,"1 to enter 0 (no) pre-exchange doses for this dispense drug.",!?3,"2 to enter ",PSGDA," doses for this dispense drug.",!?3,"3 to enter another amount for this dispense drug."
  • Line Location: WH+3
Function Call: WRITE
  • Prompt: !!?2,"Enter a number from 0 to 9999, 0 decimal digits. If you enter an '^' to exit",!,"NO pre-exchange doses will be entered for this dispense drug."
  • Line Location: WDH+1
Routine Call
  • DIE
  • Line Location:
    • DD+5
Routine Call
  • DIR
  • Line Location:
    • UPDD+1
    • PSGPENWS+3
    • PSGPENWS+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59.6 - [#59.6] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] PADE+12, PADE+19
^PS(53.4 - [#53.4] DD+8*, DD+9*, DD+10, DD+12, DD+14, DD+15, DD+17, DD+18
^PS(53.45 - [#53.45] PADE+24
^PS(53.5 - [#53.5] EN+13, GF+1, GF+2
^PS(55 - [#55] EN+5, EN+7, EN+8, EN+12, EN+15, UPDD+2, PADE+12, PADE+19, PADE+22
^PS(57.5 - [#57.5] EN+12
^PS(59.7 - [#59.7] EN+4
^PSD(58.8 - [#58.8] EN+7, EN+8, DD+3
^PSDRUG - [#50] DD+1
^PSI(58.1 - [#58.1] EN+7, EN+8, DD+3

Label References

Name Line Occurrences
$$PADE EN+3
DD UPDD+2
DONE UPDD+1
GF EN+16
NCE EN+16
PSGPENWS DD+3

Naked Globals

Name Field # of Occurrence
^( EN+4, EN+7, EN+8, UPDD+2, PADE+22, PADE+24
^(0 UPDD+2*, GF+2, DD+1, DD+10*, DD+12*, DD+14*, DD+15*, DD+17*, DD+18*, DD+20*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+5, DD+9
DA DD+1~, DD+4!, DD+5*
DA(1 DD+5*
DA(2 DD+5*
DDCNT PADE+21~, PADE+22*, PADE+24*, PADE+26
DFN PADE+6~, PADE+9*, PADE+19
>> DIE DD+5*
DIR UPDD+1~, PSGPENWS+3!, PSGPENWS+4!
DIR("?" UPDD+1*, PSGPENWS+3*, PSGPENWS+4*
DIR("A" UPDD+1*, PSGPENWS+3*, PSGPENWS+4*
DIR("B" UPDD+1*
DIR(0 UPDD+1*, PSGPENWS+3*, PSGPENWS+4*
DR DD+4!, DD+5*
>> DRG DD+1*, DD+2, WH+1
DT EN+5*
>> DUOUT DONE+2*
DUZ DD+9
>> FQ UPDD+2*, DD+5, DD+10, DD+12, DD+14
>> ND EN+5*, EN+7*, EN+8*, UPDD+2*, DD+1, DD+3, DD+8*
ND8 EN+4~*, EN+5*, EN+6
PADE PADE+6~, PADE+9*, PADE+26*, PADE+27
PADEFLAG PADE+21~*, PADE+22, PADE+23*, PADE+24, PADE+25*, PADE+26
>> PSGDA DD+3*, DD+4*, DD+5, DD+10, DD+12, PSGPENWS+2, PSGPENWS+3*, PSGPENWS+4*, WH+3
>> PSGDT EN+5*, EN+13, EN+15, GF+2
PSGID DONE+2!
PSGMAR DONE+2!
PSGOD DONE+2!
PSGORD PADE~, PADE+8, PADE+12, PADE+19, PADE+22, PADE+24
PSGP EN+3, EN+5, EN+7, EN+8, EN+12, EN+14, EN+15, UPDD+2, DD+5, DD+10
, DD+12, DD+14, DD+15, DD+17, DD+18, DD+20, PADE~, PADE+8, PADE+9, PADE+12
, PADE+22
>> PSGPEN EN+5*, EN+9*, EN+10*, EN+11*, EN+16*, EN+17*, UPDD+1
PSGPENO EN~, EN+1*, EN+3, EN+5, EN+7, EN+8, EN+12, EN+16, UPDD+2, DD+5
, DD+10, DD+12, DD+14, DD+15, DD+17
>> PSGPENWS EN+7*, EN+8*, EN+9, EN+10, EN+11, EN+12, DD+3
PSGPLC EN+16, DONE+2!
PSGPLF EN+13*, EN+16, DONE+2!, NCE+1, GF+2*
PSGPLO EN+16*, DONE+2!
PSGPLS EN+12*, EN+14*, EN+15*, DONE+2!
PSGPLUD DONE+2!
>> PSGPRIO EN+17
>> PSGPXN DD+6*, DD+7, DD+8*, DD+9, DD+10, DD+12, DD+14, DD+15, DD+17, DD+18
>> PSGY UPDD+1*, DD+3
PSJCLNK PADE+14~, PADE+17*, PADE+18
PSJCLO EN+4~*, EN+6*, EN+7, EN+12, DD+3
PSJDDND PADE+6~, PADE+22*, PADE+23, PADE+24*, PADE+25
PSJORCL PADE+6~, PADE+12*, PADE+13, PADE+17
>> PSJORD EN+14, EN+15
PSJPADE EN+2~, EN+3*, EN+9, EN+10, EN+11, EN+12
PSJPDLOC PADE+14~, PADE+19*, PADE+20*, PADE+23, PADE+25
PSJPRN EN+4~*
PSJPWD EN+3, EN+7, EN+8, EN+12, DD+3, PADE~, PADE+18, PADE+20
>> PSJREN EN+14, EN+15, DONE+2
PSJRNOS EN+14~*, EN+15*
PSJSITE EN+4~*
>> PSJSYSP PADE+24
>> PSJSYSW PADE+11, PADE+13
>> PSJSYSW0 DONE+1*
PSJWDFLG PADE+6~
PSJWDFLG("59.6" PADE+13
>> Q EN+7*, EN+8*, GF+1*, WH+1*, WH+2, PADE+22*, PADE+24*
>> Q1 WH+2*
>> Q2 WH+2*
>> QQ GF+1*, GF+2*
RNDT EN+14~*
U EN+4
>> UD DD+1*, DD+2, DD+4
WG EN+12*, EN+13, DONE+2!, GF+1, GF+2
>> Y UPDD+1, PSGPENWS+3, PSGPENWS+4
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