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

Package: Inpatient Medications

Routine: PSGAPP


Information

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

Source Information

Source file <PSGAPP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 5 PRT^PSGAPIV  $$ENDTC2^PSGMI  $$SITE^PSGMMAR2  ENTRY^PSJHEAD  DRGDISP^PSJLMUT1  
VA FileMan 2 NOW^%DTC  ^DIR  
Adverse Reaction Tracking 1 EN1^GMRADPT  
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: 3

Package Total Caller Graph
Inpatient Medications 3 PSGAP0  PSGAPIV  PSJO2  

Entry Points

Name Comments DBIA/ICR reference
LOOP ;
DONE ;
H1 ;
END ;
ORDP ;
NP ;
NP1 ;
ENRCT ;

External References

Name Field # of Occurrence
NOW^%DTC LOOP+2
^DIR H1+3, NP1+2
EN1^GMRADPT ENRCT+1
PRT^PSGAPIV ORDP+2
$$ENDTC2^PSGMI LOOP+2
$$SITE^PSGMMAR2 LOOP+4
ENTRY^PSJHEAD H1+11
DRGDISP^PSJLMUT1 ORDP+4
$$DT^XLFDT LOOP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !?28,"UNIT DOSE ACTION PROFILE",?62,PSGPDT,!?10,"NO ACTIVE ORDERS FOUND FOR ",$S(PSGSS="G":"WARD GROUP: "_PSGAPWGN,PSGSS="W":"WARD: "_PSGAPWDN,1:"PATIENT(S) SELECTED"),"."
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H1+5
Function Call: WRITE
  • Prompt: !?26,"UNIT DOSE ACTION PROFILE #1",?62,PSGPDT
  • Line Location: H1+5
Function Call: WRITE
  • Prompt: !?+PSGVAMC,$P(PSGVAMC,U,2)
  • Line Location: H1+6
Function Call: WRITE
  • Prompt: !?23,"(Continuation of VA FORM 10-1158)",?72,"Page: 1",!,LINE
  • Line Location: H1+7
Function Call: WRITE
  • Prompt: !," This form is to be used to REVIEW/RENEW/CANCEL existing active medication",!," orders for inpatients. Review the active orders listed and beside"
  • Line Location: H1+8
Function Call: WRITE
  • Prompt: " each order",!," circle one of the following:",!?30,"R - to RENEW the order",!?30,"D - to DISCONTINUE the order",!?30,"N - to take NO ACTION (the order will remain",!?34,"active until the stop date indicated)"
  • Line Location: H1+9
Function Call: WRITE
  • Prompt: !!," A new order must be written for any new medication or to make any changes",!," in dosage or directions on an existing order.",!,LINE,!
  • Line Location: H1+10
Function Call: WRITE
  • Prompt: !,LINE,!," No. Action",?16,"Drug",?52,"ST Start Stop Status/Info",!,ALN
  • Line Location: H1+12
Function Call: WRITE
  • Prompt: !,ALN
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!?13,"******** THIS PATIENT HAS NON-VERIFIED ORDERS. ********"
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !!?3,"ADDITIONAL MEDICATION ORDERS:"
  • Line Location: END+13
Function Call: WRITE
  • Prompt: !!,LINE
  • Line Location: END+14
Function Call: WRITE
  • Prompt: !!?16,LN,?40,LN_LN,!?16,"Date AND Time",?40,"PROVIDER'S SIGNATURE",!
  • Line Location: END+16
Function Call: WRITE
  • Prompt: !
  • Line Location: END+17
Function Call: WRITE
  • Prompt: !!?3,"ADDITIONAL MEDICATION ORDERS:"
  • Line Location: END+22
Function Call: WRITE
  • Prompt: !!,LINE
  • Line Location: END+23
Function Call: WRITE
  • Prompt: PSG(1),?52,$P(DRG,U),?55,$P(ND,U,2),?61,$P(ND,U,3),?67,$P(ND,U)
  • Line Location: ORDP+6
Function Call: WRITE
  • Prompt: ?71
  • Line Location: ORDP+6
Function Call: WRITE
  • Prompt: "NF "
  • Condition for execution: NF
  • Line Location: ORDP+6
Function Call: WRITE
  • Prompt: "WS "
  • Condition for execution: $P(ND,U,4)
  • Line Location: ORDP+6
Function Call: WRITE
  • Prompt: $E("HSM",SM,3)
  • Condition for execution: SM
  • Line Location: ORDP+6
Function Call: WRITE
  • Prompt: !?11,PSG(X)
  • Line Location: ORDP+7
Function Call: WRITE
  • Prompt: !?11,"Special Instructions: "
  • Line Location: ORDP+8
Function Call: WRITE
  • Prompt: !?35
  • Condition for execution: $X+$L(Y)>78
  • Line Location: ORDP+9
Function Call: WRITE
  • Prompt: Y," "
  • Line Location: ORDP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDP+10
Function Call: WRITE
  • Prompt: !!?16,LN,?40,LN_LN,!?16,"Date and Time",?40,"PROVIDER'S SIGNATURE"
  • Line Location: NP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NP1+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: NP1+4
Function Call: WRITE
  • Prompt: !?26,"UNIT DOSE ACTION PROFILE #1",?73-$L(PG),"Page: "_PG
  • Line Location: NP1+4
Function Call: WRITE
  • Prompt: !?+PSGVAMC,$P(PSGVAMC,U,2)
  • Line Location: NP1+5
Function Call: WRITE
  • Prompt: !?1,PPN,?40,PID,?60,PDOB
  • Line Location: NP1+6
Function Call: WRITE
  • Prompt: !!,"ADDITIONAL MEDICATION ORDERS (CONTINUED):",!
  • Line Location: NP1+9
Function Call: WRITE
  • Prompt: !!,LINE
  • Line Location: NP1+10
Function Call: WRITE
  • Prompt: " ____________________"
  • Line Location: ENRCT+3
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: X
  • Line Location: ENRCT+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L(RCT)>77
  • Line Location: ENRCT+4
Function Call: WRITE
  • Prompt: " ",$S(RCT="NKA":"No Known Allergies",1:RCT)
  • Line Location: ENRCT+4
Routine Call
  • DIR
  • Line Location:
    • H1+3
    • NP1+2

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DONE LOOP+3
H1 LOOP+8
NP END+4
NP1 END+8, END+9, END+14, END+21, END+23
ORDP END+4

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOOP+2
AD DONE+1!, H1+4*
ALN LOOP+5*, DONE+1!, H1+2*, H1+12, END+3*, NP1+11
AMO LOOP+8*, DONE+1!, END+15*, END+20, END+21*, NP1+4, NP1+11
CML LOOP+2*, DONE+1!
DF DONE+1!, H1+4*, END+7*, NP1+8
DFN H1+4*, H1+11, ENRCT+1~*
DIR H1+3!, NP1+2!
DIR(0 H1+3*, NP1+2*
DRG END+1*, END+2, END+4, ORDP+1~*, ORDP+5, ORDP+6
DRG2 ORDP+1~*
DT LOOP+2*
>> DTOUT H1+3, NP1+2
>> DUOUT H1+3, NP1+2
GMRA ENRCT+1~*
GMRAL ENRCT+1~
GMRAL( ENRCT+2
IO LOOP+2, LOOP+3
>> IO(0 LOOP+2
IOF LOOP+3, DONE+1, H1+5, NP1+4
IOSL END+4, END+8, END+9, END+12, END+14, END+17, END+23, NP1+3
IOST LOOP+2, H1+3, NP1+2
LINE LOOP+5*, DONE+1!, H1+7, H1+10, H1+12, END+14, END+23, NP1+10
LN LOOP+5*, DONE+1!, END+7, END+8, END+9, END+16, END+24, NP+2
MF DONE+1!
N DONE+1!, H1+4*, ORDP+2*, ORDP+5
>> ND END+4*, ORDP+2, ORDP+5, ORDP+6
>> NF ORDP+5*, ORDP+6
ON END+1~*, END+2, END+4, ORDP+2, ORDP+4
>> PAGE H1+5*
>> PDOB H1+4*, H1+5*, END+18, END+25, NP1+4, NP1+6
PG DONE+1!, H1+5*, H1+11, NP1+4*
PI LOOP+8*, DONE+1!, H1+4*
PID DONE+1!, H1+4*, END+18, END+25, NP1+4, NP1+6
>> PN LOOP+6*, LOOP+8, H1+4, END+1, END+4, ORDP+3
PPN DONE+1!, H1+4*, END+18, END+25, NP1+4, NP1+6
>> PSEX H1+4*
PSG ORDP+3~, ORDP+4
PSG( ORDP+7
PSG(1 ORDP+6
>> PSGAPWDN LOOP+3
>> PSGAPWGN LOOP+3
>> PSGDT LOOP+2*
>> PSGP H1+4*, END+2, END+6, ORDP+3*, ORDP+4, ENRCT+1
>> PSGPAT("" H1+4
PSGPDT LOOP+2*, LOOP+3, DONE+1!, H1+5
>> PSGSS LOOP+3
PSGVAMC LOOP+4*, DONE+1!, H1+6, NP1+5
PSJAMO DONE+1!, END+11~, END+14*, END+23*, NP1+9
PSJCLN LOOP+1~*, END+2*
PSJCLNM LOOP+1~*, H1+2*, END+2*, END+3
PSJCLNM1 LOOP+1~, END+2*
PSJCNTR DONE+1!, END+11~, END+14*, END+23*
PSJDLW LOOP+6, DONE+1!, H1+1, H1+3*, END+4, END+5, END+7, END+8, END+9, END+18
END+21, END+24, END+25, NP+1, NP1+1, NP1+2*
>> PSJNARC H1+11
>> PSJOPC H1+11*
PSJTEAM DONE+1!, H1+11
>> Q END+17*, NP1+3*
>> RB H1+4*
RCT DONE+1!, ENRCT+1~, ENRCT+3, ENRCT+4*
RCT( ENRCT+2*, ENRCT+4
RF DONE+1!
>> SI END+4*, ORDP+8, ORDP+9
>> SM ORDP+5*, ORDP+6
TD DONE+1!, H1+4*
TM LOOP+6*, DONE+1!, END+1, END+4
U H1+6, ORDP+3, ORDP+6, NP1+5
WD LOOP+6*, LOOP+8, DONE+1!, H1+2, END+1, END+4
>> WT H1+4*
X ORDP+3~, ORDP+7~*, ORDP+9*, ENRCT+1~, ENRCT+2*, ENRCT+4*
Y ORDP+9~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All