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

Package: Inpatient Medications

Routine: PSGCAPP


Information

PSGCAPP ;BIR/CML3-PRINT DATA FOR ACTION PROFILE ;05 Oct 98 / 10:21 AM

Source Information

Source file <PSGCAPP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 7 $$SETPI^PSGCAP0  PRT^PSGCAPIV  ^PSGCAPP0  $$ENDTC2^PSGMI  $$SITE^PSGMMAR2  DRGDISP^PSJLMUT1  $$CLINIC^PSJO1  
VA FileMan 2 NOW^%DTC  ^DIR  

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

Package Total Caller Graph
Inpatient Medications 2 PSGCAP0  PSGCAPIV  

Entry Points

Name Comments DBIA/ICR reference
LOOP ;
DONE ;PSJ*5*149 Add WD1 to killed variables.
H1 ; first header for patient
; PSJ*5*149 Use WD1 to preserve value of WD
END ;
ORDP ;
ORDP1 ;*** Also being called from ^PSGCAPIV. PSJ*5*169 Don't allow RENEW on one-time orders.
NP ;
NP1 ;

External References

Name Field # of Occurrence
NOW^%DTC LOOP+2
^DIR NP1+2
$$SETPI^PSGCAP0 LOOP+8
PRT^PSGCAPIV ORDP+1
^PSGCAPP0 H1+7
$$ENDTC2^PSGMI LOOP+2
$$SITE^PSGMMAR2 LOOP+6
DRGDISP^PSJLMUT1 ORDP+3
$$CLINIC^PSJO1 NP1+15, NP1+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?26,"UNIT DOSE ACTION PROFILE #2",?62,PSGPDT,!?10,"NO ",$S(PSGAPO="E":"EXPIRING",1:"ACTIVE")," ORDERS FOUND FOR ",$S(PSGSS="G":"WARD GROUP: "_PSGAPWGN,PSGSS="W":"WARD: "_PSGAPWDN,1:"PATIENT(S) SELECTED"),"."
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !!?13,"******** THIS PATIENT HAS NON-VERIFIED ORDERS. ********"
  • Line Location: END+8
Function Call: WRITE
  • Prompt: !!?3,"ADDITIONAL MEDICATION ORDERS:"
  • Line Location: END+15
Function Call: WRITE
  • Prompt: !!,LINE
  • Line Location: END+16
Function Call: WRITE
  • Prompt: !
  • Line Location: END+18
Function Call: WRITE
  • Prompt: !,$J(N,3)
  • Line Location: ORDP+4
Function Call: WRITE
  • Prompt: ?5,PSG(1),?46,$P(DRG,"^"),?49,$P(ND,"^",2),?55,$P(ND,"^",3),?61,$P(ND,"^")
  • Line Location: ORDP+5
Function Call: WRITE
  • Prompt: ?65
  • Line Location: ORDP+5
Function Call: WRITE
  • Prompt: "NF "
  • Condition for execution: NF
  • Line Location: ORDP+5
Function Call: WRITE
  • Prompt: "WS "
  • Condition for execution: $P(ND,"^",4)
  • Line Location: ORDP+5
Function Call: WRITE
  • Prompt: $E("HSM",SM,3)
  • Condition for execution: SM
  • Line Location: ORDP+5
Function Call: WRITE
  • Prompt: !?5,PSG(X)
  • Line Location: ORDP+6
Function Call: WRITE
  • Prompt: !?8,"Special Instructions: "
  • Line Location: ORDP+7
Function Call: WRITE
  • Prompt: !?31
  • Condition for execution: $X+$L(Y)>78
  • Line Location: ORDP+7
Function Call: WRITE
  • Prompt: Y," "
  • Line Location: ORDP+7
Function Call: WRITE
  • Prompt: !!?5,"__TAKE NO ACTION __DISCONTINUE "_$S($P(DRG,"^")="O"!($G(QST)="O"):" ",1:"__RENEW")_" COST/DOSE: ",DCU,!?2,"------------------------------------------------------------------------",!
  • Line Location: ORDP1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NP1+3
Function Call: WRITE
  • Prompt: !?2,PPN,?40,PID,?78-$L(PDOB),PDOB
  • Line Location: NP1+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: NP1+6
Function Call: WRITE
  • Prompt: !?28,"UNIT DOSE ACTION PROFILE #2",?73-$L(PG),"Page: "_PG,!?1,PPN,?40,PID,?60,PDOB
  • Line Location: NP1+6
Function Call: WRITE
  • Prompt: !?28,"UNIT DOSE ACTION PROFILE #2",?73-$L(PG),"Page: "_PG,!?1,PPN,?40,PID,?60,PDOB
  • Line Location: NP1+6
Function Call: WRITE
  • Prompt: !?2,PPN,?40,PID,?78-$L(PDOB),PDOB
  • Line Location: NP1+7
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: NP1+7
Function Call: WRITE
  • Prompt: !?26,"UNIT DOSE ACTION PROFILE #2",?73-$L(PG),"Page: "_PG
  • Line Location: NP1+8
Function Call: WRITE
  • Prompt: !?+PSGVAMC,$P(PSGVAMC,U,2)
  • Line Location: NP1+9
Function Call: WRITE
  • Prompt: !?1,PPN,?40,PID,?60,PDOB
  • Line Location: NP1+10
Function Call: WRITE
  • Prompt: !!,"ADDITIONAL MEDICATION ORDERS (CONTINUED):",!
  • Line Location: NP1+12
Function Call: WRITE
  • Prompt: !!,LINE
  • Line Location: NP1+13
Function Call: WRITE
  • Prompt: !!," No. Action",?16,"Drug",?46,"ST Start Stop Status/Info",!,ALN
  • Line Location: NP1+17
Routine Call
  • DIR
  • Line Location:
    • NP1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] END+8
^TMP($J LOOP+3, LOOP+7, LOOP+8, END+1, END+3, END+4, END+6!

Label References

Name Line Occurrences
DONE LOOP+3
H1 LOOP+8
NP END+1, END+4
NP1 END+10, END+11, END+16
ORDP END+1, END+4

Naked Globals

Name Field # of Occurrence
^( LOOP+8, END+1, END+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOOP+2
AD DONE+1!, NP1+4*
ALN LOOP+5*, DONE+1!, H1+5*, NP1+15~*, NP1+16~*, NP1+17
CML LOOP+2*, DONE+1!
>> DCU ORDP+4*, ORDP1+1
DF DONE+1!, END+9*, NP1+4*, NP1+11
DIR NP1+2!
DIR(0 NP1+2*
DRG END+1*, END+4~*, ORDP+5, ORDP1+1
DRG2 END+3~*, END+4
>> DTOUT NP1+2
>> DUOUT NP1+2
>> HT NP1+4*
>> HTD NP1+4*
IO LOOP+2, LOOP+3
IO(0 LOOP+2
IOF LOOP+4, DONE+1, NP1+7
IOSL END+1, END+10, END+11, END+14, END+16, END+18, NP1+3
IOST LOOP+2, NP1+2
LINE LOOP+5*, DONE+1!, H1+5*, END+16, NP1+13
LN LOOP+5*, DONE+1!, H1+5*, END+9, END+10, END+11, END+17, NP+1
MF DONE+1!
MIDLEN H1+4~*
N DONE+1!, ORDP+1*, ORDP+4, NP1+4*
>> ND END+1*, END+4*, ORDP+4, ORDP+5
>> NF ORDP+4*, ORDP+5
ON END+1*, END+4~*, ORDP+1, ORDP+3, NP1+15, NP1+16
ON2 END+3~, END+4*
>> PAGE NP1+5*
>> PDOB END+19, NP1+4*, NP1+5*, NP1+7, NP1+10
PG DONE+1!, NP1+4, NP1+5*, NP1+7*, NP1+8
PI LOOP+8*, DONE+1!, NP1+4
PID DONE+1!, END+19, NP1+4*, NP1+7, NP1+10
>> PN LOOP+5*, LOOP+8*, END+1, END+3, END+6, ORDP+2, NP1+4, NP1+15, NP1+16
PN2 END+3~*, END+4
PPN DONE+1!, END+19, NP1+4*, NP1+7, NP1+10
PS1 LOOP+7*, DONE+1!
>> PSEX NP1+4*
PSG ORDP+2~, ORDP+3
PSG( ORDP+6
PSG(1 ORDP+5
>> PSGAPO LOOP+4
>> PSGAPWDN LOOP+4
>> PSGAPWGN LOOP+4
>> PSGDT LOOP+2*
>> PSGP END+8, ORDP+2*, ORDP+3, NP1+4*
PSGPDT LOOP+2*, LOOP+4, DONE+1!
>> PSGSS LOOP+4
PSGVAMC LOOP+6*, DONE+1!, NP1+9
PSJAMO DONE+1!, END+13~, END+16*, NP1+12
PSJCLIN1 LOOP+1~, H1+3*, H1+4, H1+5
PSJCNTR DONE+1!, END+13~, END+16*
PSJDLW LOOP+7, LOOP+8, DONE+1!, END+1, END+4, END+7, END+9, END+10, END+11, END+17
, END+19, NP+1, NP1+1, NP1+2*
>> PSJPWD NP1+16
>> PSJTEAM LOOP+7*
>> Q END+18*, NP1+3*
>> QST ORDP1+1
>> RB NP1+4*
RCT DONE+1!
RF DONE+1!
>> S1 LOOP+5*, LOOP+7*, LOOP+8, END+1, END+3, END+4, END+6
>> SI END+1*, END+4*, ORDP+7
SIDLEN H1+4~*, H1+5
>> SM ORDP+4*, ORDP+5
TD DONE+1!, NP1+4*
TMPWD END+6~*
U ORDP+2, NP1+9
WD LOOP+5*, LOOP+7*, LOOP+8, DONE+1!, H1+3, H1+6~*, H1+8*, END+1, END+3, END+4~*
WD1 DONE+1!, H1+2~, H1+6*, H1+8
WD2 END+3~*, END+4
WD2( END+3*, END+6
>> WT NP1+4*
>> WTD NP1+4*
X ORDP+2~, ORDP+6~*, ORDP+7*
>> Y ORDP+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All