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 |  Local Variables |  All
Print Page as PDF
Routine: PSGCAPIV

Package: Inpatient Medications

Routine: PSGCAPIV


Information

PSGCAPIV ;BIR/MV-ACTION PROFILE #2 IV ORDERS ;07 Apr 98 / 1:10 PM

Source Information

Source file <PSGCAPIV.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Inpatient Medications 6 (NP,ORDP1)^PSGCAPP  ($$ENDTC,$$ENPDN)^PSGMI  $$ENSET^PSGSICHK  GT55^PSIVORFB  $$WRTDRG^PSIVUTL  $$ONE^PSJBCMA  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSGCAP0  PSGCAPP  

Entry Points

Name Comments DBIA/ICR reference
NP(TYPE) ;*** Print end line after order.
IV ;
START ;
EXIT ;
PRTST ;*** Print the rest of the 1st line.
PRT(ON) ;*** Print IV orders.
DCU(TYPE,X) ;*** Calculate drug cost.

External References

Name Field # of Occurrence
NP^PSGCAPP NP+2
ORDP1^PSGCAPP PRT+16
$$ENDTC^PSGMI PRT+3
$$ENPDN^PSGMI IV+6
$$ENSET^PSGSICHK PRT+4
GT55^PSIVORFB IV+1, PRT+2
$$WRTDRG^PSIVUTL PRT+11, PRT+13
$$ONE^PSJBCMA IV+4, PRT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(N,3)
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: ?5,$$WRTDRG^PSIVUTL(DRG("AD",X),41)
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: ?5,"in "
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !
  • Condition for execution: X>1
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: ?8,$$WRTDRG^PSIVUTL(DRG("SOL",X),41)
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !?5,"Special Instructions: "
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !?27
  • Condition for execution: ($L(Y1)+$X)>79
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: Y1_" "
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.6 - [#52.6] DCU+2
^PS(52.7 - [#52.7] DCU+3
^PS(55 - [#55] START+4
^TMP($J IV+7*

Label References

Name Line Occurrences
DCU PRT+11, PRT+13
EXIT PRT+11, PRT+13
IV START+4
NP PRT+11, PRT+13
PRTST PRT+10, PRT+11, PRT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COST DCU+1~, DCU+2*, DCU+3*, DCU+4
>> DCU PRT+1*, DCU+4*
>> DFN IV+1*, IV+4, PRT+2*, PRT+7
DRG START+1~, IV+6*, IV+7, PRT+1, PRT+2~
DRG( NP+2, DCU+2, DCU+3, DCU+4
DRG("AD" IV+6, PRT+10, PRT+11, PRT+14
DRG("SOL" IV+6, PRT+13
IOSL NP+2
>> N PRT+9
ON START+1~*, START+4*, IV+4, IV+7, PRT~, PRT+1*, PRT+7
ON55 IV+1~, PRT+2~
P START+1~, PRT+2~
P( PRT+3*
P("MR" IV+3
P("OPI" PRT+4
P(17 IV+2, PRTST+1
P(2 IV+4, PRT+7, PRTST+1
P(3 IV+4, PRT+7, PRTST+1
P(4 IV+6
P(8 PRT+14
P(9 IV+4, IV+5, PRT+7, PRT+8, PRT+14
>> PN IV+7
PRTST PRT+2~*, PRT+14, PRTST+1, PRTST+2*
>> PSGAPFD START+4
>> PSGAPO START+4
>> PSGAPSD START+3
>> PSGAPWDN IV+7
>> PSGDT START+3*, START+4
>> PSGEXPDT START+4*
>> PSGP START+4, IV+1, PRT+2
>> PSJDLW PRT+11, PRT+13
>> PSJSI PRT+4*, PRT+15
>> PST START+4, IV+3
QST IV+4*, IV+5*, IV+7, PRT+6~, PRT+7*, PRT+8*
>> S1 IV+7
TYPE PRT+1~*, PRTST+1, NP~, NP+2, DCU~, DCU+2, DCU+3, DCU+4
U IV+3, IV+6, IV+7, PRT+1, DCU+2, DCU+3, DCU+4
X IV+1~, IV+3*, IV+6*, PRT+3*, PRT+11*, PRT+13*, NP+1~, DCU~, DCU+2, DCU+3
, DCU+4
>> XTYPE IV+3
>> Y PRT+15*
>> Y1 PRT+15*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All