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

Package: Inpatient Medications

Routine: PSGCAPP0


Information

PSGCAPP0 ;BIR/CML3-PRINT DATA FOR ACTION PROFILE CONT. ; 4/1/08 3:05pm

Source Information

Source file <PSGCAPP0.m>

Entry Points

Name Comments DBIA/ICR reference
H1 ; first header for patient
NONE ;
ALG ; NOT USED ANYMORE, ALG^PSJHEAD
ADR ; NOT USED ANYMORE, ADR^PSJHEAD
ENRCT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H1+4
Function Call: WRITE
  • Prompt: !?26,"UNIT DOSE ACTION PROFILE #2",?62,PSGPDT,!?+PSGVAMC,$P(PSGVAMC,U,2),!?23,"(Continuation of VA FORM 10-1158)",?72,"Page: 1",!,LINE
  • Line Location: H1+4
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+5
Function Call: WRITE
  • Prompt: ?23,"Last "
  • Condition for execution: PSJPDD
  • Line Location: H1+6
Function Call: WRITE
  • Prompt: "Room-Bed: ",RB,?53,"Ht(cm): ",HT," ",HTD
  • Line Location: H1+6
Function Call: WRITE
  • Prompt: !?4,"DOB: "_PDOB_" ("_PAGE_")",?53,"Wt(kg): "_WT," ",WTD
  • Line Location: H1+7
Function Call: WRITE
  • Prompt: !?4,"Sex: "_PSEX,?51,"Admitted: "_AD
  • Line Location: H1+8
Function Call: WRITE
  • Prompt: !?5,"Dx: "_PI
  • Line Location: H1+10
Function Call: WRITE
  • Prompt: ?43,"Last Transferred: "_TD
  • Condition for execution: TD
  • Line Location: H1+10
Function Call: WRITE
  • Prompt: !?2,$G(ZDSPL),?51,"BSA (m2): ",$G(PSJBSA)
  • Line Location: H1+19
Function Call: WRITE
  • Prompt: !?1,"Allergies: "
  • Line Location: H1+24
Function Call: WRITE
  • Prompt: !,LINE,!,"No. Action",?16,"Drug",?46,"ST Start Stop Status/Info",!,ALN
  • Line Location: H1+26
Function Call: WRITE
  • Prompt: !?7,"ADR: "
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: "____________________________________"
  • Condition for execution: $E(IOST)="P"
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: "No Allergy Assessment"
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !?7,"ADR: "
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: "____________________________________"
  • Condition for execution: $E(IOST)="P"
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !?12
  • Condition for execution: KKA>1
  • Line Location: ALG+2
Function Call: WRITE
  • Prompt: PSGALG(KKA)
  • Line Location: ALG+2
Function Call: WRITE
  • Prompt: !?7,"ADR: "
  • Line Location: ADR+2
Function Call: WRITE
  • Prompt: !?12
  • Condition for execution: KKA>1
  • Line Location: ADR+3
Function Call: WRITE
  • Prompt: PSGADR(KKA)
  • Line Location: ADR+3
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: X>1
  • Line Location: ENRCT+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L(RCT)>77
  • Line Location: ENRCT+3
Function Call: WRITE
  • Prompt: " ",RCT
  • Line Location: ENRCT+3
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: X>1
  • Line Location: ENRCT+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L(RCT)>77
  • Line Location: ENRCT+4
Function Call: WRITE
  • Prompt: " ",RCT
  • Line Location: ENRCT+4
Function Call: WRITE
  • Prompt: !,LINE,!," No.",?11,"Drug",?46,"ST Start Stop Status/Info",!,ALN
  • Line Location: ENRCT+5
Info |  Source |  Entry Points |  Interaction Calls