Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls