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 ;29-May-2012 14:26;PLS

Source Information

Source file <PSGAPP.m>

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

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 3 PSGAP0  PSGAPIV  PSJO2  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: LOOP+2
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+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H1+4
Function Call: WRITE
  • Prompt: !?26,"UNIT DOSE ACTION PROFILE #1",?62,PSGPDT
  • Line Location: H1+4
Function Call: WRITE
  • Prompt: !?+PSGVAMC,$P(PSGVAMC,U,2)
  • Line Location: H1+5
Function Call: WRITE
  • Prompt: !?23,"(Continuation)",?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: !!?13,"******** THIS PATIENT HAS NON-VERIFIED ORDERS. ********"
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!?3,"ADDITIONAL MEDICATION ORDERS:"
  • Line Location: END+10
Function Call: WRITE
  • Prompt: !!,LINE
  • Line Location: END+11
Function Call: WRITE
  • Prompt: !!?16,LN,?40,LN_LN,!?16,"Date AND Time",?40,"PROVIDER'S SIGNATURE",!
  • Line Location: END+13
Function Call: WRITE
  • Prompt: !
  • Line Location: END+14
Function Call: WRITE
  • Prompt: !!?3,"ADDITIONAL MEDICATION ORDERS:"
  • Line Location: END+19
Function Call: WRITE
  • Prompt: !!,LINE
  • Line Location: END+20
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+5
Function Call: WRITE
  • Prompt: ?71
  • 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,U,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: !?11,PSG(X)
  • Line Location: ORDP+6
Function Call: WRITE
  • Prompt: !?11,"Special Instructions: "
  • Line Location: ORDP+7
Function Call: WRITE
  • Prompt: !?35
  • Condition for execution: $X+$L(Y)>78
  • Line Location: ORDP+7
Function Call: WRITE
  • Prompt: Y," "
  • Line Location: ORDP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDP+8
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+2
    • NP1+2

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DONE LOOP+2
H1 LOOP+7
NP END+1
NP1 END+5, END+6, END+11, END+18, END+20
ORDP END+1

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LOOP+1
AD DONE+1!, H1+3*
ALN LOOP+4*, DONE+1!, H1+12, NP1+11
AMO LOOP+7*, DONE+1!, END+12*, END+17, END+18*, NP1+4, NP1+11
CML LOOP+1*, DONE+1!
DF DONE+1!, H1+3*, END+4*, NP1+8
DFN H1+3*, H1+11, ENRCT+1~*
DIR H1+2!, NP1+2!
DIR(0 H1+2*, NP1+2*
>> DRG END+1*, ORDP+4, ORDP+5
DT LOOP+1*
>> DTOUT H1+2, NP1+2
>> DUOUT H1+2, NP1+2
GMRA ENRCT+1~*
GMRAL ENRCT+1~
GMRAL( ENRCT+2
IO LOOP+1, LOOP+2
IO(0 LOOP+1
IOF LOOP+2, DONE+1, H1+4, NP1+4
IOSL END+1, END+5, END+6, END+9, END+11, END+14, END+20, NP1+3
IOST LOOP+1, H1+2, NP1+2
LINE LOOP+4*, DONE+1!, H1+7, H1+10, H1+12, END+11, END+20, NP1+10
LN LOOP+4*, DONE+1!, END+4, END+5, END+6, END+13, END+21, NP+2
MF DONE+1!
N DONE+1!, H1+3*, ORDP+1*, ORDP+4
>> ND END+1*, ORDP+1, ORDP+4, ORDP+5
>> NF ORDP+4*, ORDP+5
>> ON END+1*, ORDP+1, ORDP+3
>> PAGE H1+4*
>> PDOB H1+3*, H1+4*, END+15, END+22, NP1+4, NP1+6
PG DONE+1!, H1+4*, H1+11, NP1+4*
PI LOOP+7*, DONE+1!, H1+3*
PID DONE+1!, H1+3*, END+15, END+22, NP1+4, NP1+6
>> PN LOOP+5*, LOOP+7, H1+3, END+1, ORDP+2
PPN DONE+1!, H1+3*, END+15, END+22, NP1+4, NP1+6
>> PSEX H1+3*
PSG ORDP+2~, ORDP+3
PSG( ORDP+6
PSG(1 ORDP+5
>> PSGAPWDN LOOP+2
>> PSGAPWGN LOOP+2
>> PSGDT LOOP+1*
>> PSGP H1+3*, END+3, ORDP+2*, ORDP+3, ENRCT+1
PSGPDT LOOP+1*, LOOP+2, DONE+1!, H1+4
>> PSGSS LOOP+2
PSGVAMC LOOP+3*, DONE+1!, H1+5, NP1+5
PSJAMO DONE+1!, END+8~, END+11*, END+20*, NP1+9
PSJCNTR DONE+1!, END+8~, END+11*, END+20*
PSJDLW LOOP+5, DONE+1!, H1+1, H1+2*, END+1, END+2, END+4, END+5, END+6, END+15
, END+18, END+21, END+22, NP+1, NP1+1, NP1+2*
>> PSJNARC H1+11
>> PSJOPC H1+11*
PSJTEAM DONE+1!, H1+11
>> Q END+14*, NP1+3*
>> RB H1+3*
RCT DONE+1!, ENRCT+1~, ENRCT+3, ENRCT+4*
RCT( ENRCT+2*, ENRCT+4
RF DONE+1!
>> SI END+1*, ORDP+7
>> SM ORDP+4*, ORDP+5
TD DONE+1!, H1+3*
TM LOOP+5*, DONE+1!, END+1
U H1+5, ORDP+2, ORDP+5, NP1+5
WD LOOP+5*, LOOP+7, DONE+1!, END+1
>> WT H1+3*
X ORDP+2~, ORDP+6~*, ORDP+7*, ENRCT+1~, ENRCT+2*, ENRCT+4*
>> 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