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. ; 4/1/08 3:05pm

Source Information

Source file <PSGCAPP0.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Inpatient Medications 3 (ADR,ALG)^PSJHEAD  $$CRCL^PSJLMHED  ATS^PSJMUTL  
Adverse Reaction Tracking 1 ^GMRADPT  
Pharmacy Data Management 1 $$BSA^PSSDSAPI  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGCAPP  

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 ;

External References

Name Field # of Occurrence
^DIR H1+1
^GMRADPT ENRCT+1
ADR^PSJHEAD H1+24
ALG^PSJHEAD H1+24
$$CRCL^PSJLMHED H1+13
ATS^PSJMUTL H1+22
$$BSA^PSSDSAPI H1+12

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
Routine Call
  • DIR
  • Line Location:
    • H1+1

Label References

Name Line Occurrences
NONE H1+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AD H1+2*, H1+8
>> ALFLG H1+22*, H1+24, ALG+1*, ADR+1
>> ALN H1+26, ENRCT+5
>> DF H1+2*
DFN H1+12, H1+13, 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+6
>> HTD H1+2*, H1+6
IOF H1+4
IOST H1+1, H1+25, NONE+2
>> KKA ALG+2*, ADR+3*
>> LINE H1+4, H1+5, H1+26, ENRCT+5
>> N H1+2*
>> PAGE H1+3*, H1+7
>> PDOB H1+2*, H1+3*, H1+7
>> PG H1+3*
>> PI H1+2*, H1+10
>> PID H1+2*, H1+6
>> PN H1+2, H1+21
>> PPAGE H1+21*, ALG+1
>> PPN H1+2*, H1+6
>> PS1 H1+6
>> PSEX H1+2*, H1+8
>> PSGADR H1+24, ALG+1
>> PSGADR( ADR+3
>> PSGALG H1+24, ALG+1
>> PSGALG( ALG+2
>> PSGAPS H1+6
>> PSGP H1+2*, H1+21*, ENRCT+1
>> PSGPDT H1+4
>> PSGPTMP H1+21*
>> PSGVADR H1+24
>> PSGVALG H1+24
>> PSGVAMC H1+4
PSJBSA H1+12*, H1+19!
>> PSJDLW H1+1*
>> PSJPDD H1+6
>> RB H1+2*, H1+6
RCT ENRCT+1~, ENRCT+4*
RCT( ENRCT+2*, ENRCT+4
RSLT H1+13*, H1+15, H1+16, H1+17, H1+18, H1+19!
>> TD H1+2*, H1+10
U H1+4, H1+21, ENRCT+2
>> WD H1+6
>> WT H1+2*, H1+7
>> WTD H1+2*, H1+7
X ENRCT+1~, ENRCT+2*, ENRCT+4*
ZDSPL H1+15*, H1+16*, H1+17*, H1+18*, H1+19!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All