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 |  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 ;03 Feb 99 / 9:13 AM

Source Information

Source file <PSGPEN.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 5 $$ENDTC^PSGMI  $$DEFON^PSGPER1  ^PSGPL0  $$LASTREN^PSJLMPRI  $$DATE2^PSJUTL2  
VA Fileman 3 NOW^%DTC  ^DIE  ^DIR  
Kernel 1 $$DT^XLFDT  

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
DH ;
WDH ;
DD ;
WH ;
GF ;
DONE ;
PSGPENWS ;
UPDD ;
NCE ;
EN(PSGPENO) ;

External References

Name Field # of Occurrence
NOW^%DTC EN+3, DD+8
^DIE DD+5
^DIR UPDD+1, PSGPENWS+3, PSGPENWS+4
$$ENDTC^PSGMI NCE+1
$$DEFON^PSGPER1 DONE+1
^PSGPL0 EN+11
$$LASTREN^PSJLMPRI EN+9
$$DATE2^PSJUTL2 EN+10
$$DT^XLFDT EN+3

Interaction Calls

Name Line Occurrences
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+6
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 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 a 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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DD UPDD+2
DONE UPDD+1
GF EN+11
NCE EN+11
PSGPENWS DD+3

Naked Globals

Name Field # of Occurrence
^( EN+2, EN+4, EN+5, UPDD+2
^(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+3, DD+9
DA DD+1~, DD+4!, DD+5*
DA(1 DD+5*
DA(2 DD+5*
>> 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+3*
>> DUOUT DONE+2*
DUZ DD+9
>> FQ UPDD+2*, DD+5, DD+10, DD+12, DD+14
>> ND EN+3*, EN+4*, EN+5*, UPDD+2*, DD+1, DD+3, DD+8*
>> PSGDA DD+3*, DD+4*, DD+5, DD+10, DD+12, PSGPENWS+2, PSGPENWS+3*, PSGPENWS+4*, WH+3
>> PSGDT EN+3*, EN+8, EN+10, GF+2
PSGID DONE+2!
PSGMAR DONE+2!
PSGOD DONE+2!
>> PSGP EN+3, EN+4, EN+5, EN+7, EN+9, EN+10, UPDD+2, DD+5, DD+10, DD+12
, DD+14, DD+15, DD+17, DD+18, DD+20
>> PSGPEN EN+3*, EN+6*, EN+11*, EN+12*, UPDD+1
PSGPENO EN~, EN+1*, EN+3, EN+4, EN+5, EN+7, EN+11, UPDD+2, DD+5, DD+10
, DD+12, DD+14, DD+15, DD+17
>> PSGPENWS EN+4*, EN+5*, EN+6, EN+7, DD+3
PSGPLC EN+11, DONE+2!
PSGPLF EN+8*, EN+11, DONE+2!, NCE+1, GF+2*
PSGPLO EN+11*, DONE+2!
PSGPLS EN+7*, EN+9*, EN+10*, DONE+2!
PSGPLUD DONE+2!
>> PSGPRIO EN+12
>> 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
>> PSJORD EN+9, EN+10
PSJPRN EN+2~*
>> PSJPWD EN+4, EN+5, EN+7, DD+3
>> PSJREN EN+9, EN+10, DONE+2
PSJRNOS EN+9~*, EN+10*
PSJSITE EN+2~*
>> PSJSYSW0 DONE+1*
>> Q EN+4*, EN+5*, GF+1*, WH+1*, WH+2
>> Q1 WH+2*
>> Q2 WH+2*
>> QQ GF+1*, GF+2*
RNDT EN+9~*
U EN+2
>> UD DD+1*, DD+2, DD+4
WG EN+7*, EN+8, 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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All