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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSGCAPP0

Package: Inpatient Medications

Routine: PSGCAPP0


Information

PSGCAPP0 ;BIR/CML3-PRINT DATA FOR ACTION PROFILE CONT. ;29-May-2012 14:26;PLS

Source Information

Source file <PSGCAPP0.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Inpatient Medications 2 (ADR,ALG)^PSJHEAD  ATS^PSJMUTL  
Adverse Reaction Tracking 1 ^GMRADPT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGCAPP  

Entry Points

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

External References

Name Field # of Occurrence
^DIR H1+1
^GMRADPT ENRCT+1
ADR^PSJHEAD H1+17
ALG^PSJHEAD H1+17
ATS^PSJMUTL H1+15

Interaction Calls

Name Line Occurrences
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+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H1+6
Function Call: WRITE
  • Prompt: !?26,"UNIT DOSE ACTION PROFILE #2",?62,PSGPDT,!?+PSGVAMC,$P(PSGVAMC,U,2),!?23,"(Continuation of FORM)",?72,"Page: 1",!,LINE
  • Line Location: H1+6
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+7
Function Call: WRITE
  • Prompt: ?23,"Last "
  • Condition for execution: PSJPDD
  • Line Location: H1+8
Function Call: WRITE
  • Prompt: "Room-Bed: ",RB,?53,"Ht(cm): ",HT," ",HTD
  • Line Location: H1+8
Function Call: WRITE
  • Prompt: !?4,"DOB: "_PDOB_" ("_PAGE_")",?53,"Wt(kg): "_WT," ",WTD
  • Line Location: H1+9
Function Call: WRITE
  • Prompt: !?4,"Sex: "_PSEX,?51,"Admitted: "_AD
  • Line Location: H1+10
Function Call: WRITE
  • Prompt: !?5,"Dx: "_PI
  • Line Location: H1+12
Function Call: WRITE
  • Prompt: ?43,"Last Transferred: "_TD
  • Condition for execution: TD
  • Line Location: H1+12
Function Call: WRITE
  • Prompt: !?1,"Allergies: "
  • Line Location: H1+17
Function Call: WRITE
  • Prompt: !,LINE,!,"No. Action",?16,"Drug",?46,"ST Start Stop Status/Info",!,ALN
  • Line Location: H1+19
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
Routine Call
  • DIR
  • Line Location:
    • H1+1

Label References

Name Line Occurrences
NONE H1+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AD H1+2*, H1+10
>> ALFLG H1+15*, H1+17, ALG+1*, ADR+1
>> ALN H1+19, ENRCT+5
>> DF H1+2*
DFN ENRCT+1~*
DIR H1+1!
DIR(0 H1+1*
>> DTOUT H1+1
>> DUOUT H1+1
GMRA ENRCT+1~*
GMRAL ENRCT+1~
GMRAL( ENRCT+2
>> HT H1+2*, H1+8
>> HTD H1+2*, H1+8
IOF H1+6
IOST H1+1, H1+18, NONE+2
>> KKA ALG+2*, ADR+3*
>> LINE H1+6, H1+7, H1+19, ENRCT+5
>> N H1+2*
>> PAGE H1+3*, H1+9
>> PDOB H1+2*, H1+3*, H1+9
>> PG H1+3*
>> PI H1+2*, H1+12
>> PID H1+2*, H1+8
>> PN H1+2, H1+14
>> PPAGE H1+14*, ALG+1
>> PPN H1+2*, H1+8
>> PS1 H1+8
>> PSEX H1+2*, H1+10
>> PSGADR H1+17, ALG+1
>> PSGADR( ADR+3
>> PSGALG H1+17, ALG+1
>> PSGALG( ALG+2
>> PSGAPS H1+8
>> PSGP H1+2*, H1+14*, ENRCT+1
>> PSGPDT H1+6
>> PSGPTMP H1+14*
>> PSGVADR H1+17
>> PSGVALG H1+17
>> PSGVAMC H1+6
>> PSJDLW H1+1*
>> PSJPDD H1+8
>> RB H1+2*, H1+8
RCT ENRCT+1~, ENRCT+4*
RCT( ENRCT+2*, ENRCT+4
>> TD H1+2*, H1+12
U H1+6, H1+14, ENRCT+2
>> WD H1+8
>> WT H1+2*, H1+9
>> WTD H1+2*, H1+9
X ENRCT+1~, ENRCT+2*, ENRCT+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All