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

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 ;

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