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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSJHEAD

Package: Inpatient Medications

Routine: PSJHEAD


Information

PSJHEAD ;BIR/KKA-PROFILE HEADER ; 4/1/08 4:29pm

Source Information

Source file <PSJHEAD.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Inpatient Medications 5 ($$ENDTC,$$ENDTC2)^PSGMI  $$SITE^PSGMMAR2  HTWT^PSJAC  $$CRCL^PSJLMHED  ATS^PSJMUTL  
Pharmacy Data Management 1 $$BSA^PSSDSAPI  
Registration 1 (DEM,IN5,INP)^VADPT  
VA FileMan 1 NOW^%DTC  

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

Package Total Caller Graph
Inpatient Medications 9 PSGAPP  PSGCAPP0  PSGDSP0  PSGO  PSIVPR  PSJEXP0  PSJHIS  PSJINHIS  
PSJO3  

Entry Points

Name Comments DBIA/ICR reference
ENTRY(DFN,PSJOPC,PG,PSJNARC,PSJTEAM,PSJY2K)
STUFF ;
ENHEAD ; print new page, name, ssn, dob, and ward
NONE ;
ALG ;
ADR ;

External References

Name Field # of Occurrence
NOW^%DTC STUFF+8
$$ENDTC^PSGMI STUFF+8, STUFF+12, STUFF+15
$$ENDTC2^PSGMI STUFF+15
$$SITE^PSGMMAR2 ENHEAD+7
HTWT^PSJAC STUFF+13
$$CRCL^PSJLMHED ENHEAD+20
ATS^PSJMUTL ENHEAD+31
$$BSA^PSSDSAPI ENHEAD+19
DEM^VADPT STUFF+13
IN5^VADPT STUFF+11
INP^VADPT STUFF+9

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: O F I L E" W
  • Timeout: PSJOPC="IV"
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: ?16,"I N P A T I E N T M E D I C A T I O N S"
  • Condition for execution: PSJOPC="ALL"
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: ?19,"U N I T D O S E P R O F I L E"
  • Condition for execution: PSJOPC="UD"
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: !,?19,"I V P A T I E N T P R O F I L E"
  • Condition for execution: PSJOPC="IV"
  • Line Location: ENHEAD+3
Function Call: WRITE
  • Prompt: ?64,HDT,!,SLS,SLS,$E(SLS,1,24),!
  • Line Location: ENHEAD+3
Function Call: READ
  • Variable: O F I L E" W
  • Timeout: PSJOPC="IV"
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: ?16,"I N P A T I E N T M E D I C A T I O N S"
  • Condition for execution: PSJOPC="ALL"
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: ?19,"U N I T D O S E P R O F I L E"
  • Condition for execution: PSJOPC="UD"
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: !,?19,"I V P A T I E N T P R O F I L E"
  • Condition for execution: PSJOPC="IV"
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: ?64,HDT
  • Line Location: ENHEAD+6
Function Call: WRITE
  • Prompt: !?+X,$P(X,U,2),!,SLS,SLS,$E(SLS,1,24),!
  • Line Location: ENHEAD+8
Function Call: WRITE
  • Prompt: ?75-$L(PG),"Pg: ",PG-$D(PSGVWA)
  • Condition for execution: $D(PSJPR)
  • Line Location: ENHEAD+9
Function Call: WRITE
  • Prompt: !?4,"PID: ",PSJPPID
  • Line Location: ENHEAD+10
Function Call: WRITE
  • Prompt: $J(PSJPHT,6,2)
  • Condition for execution: 'PSJPDD ?26 W:PSJPDD ?21,"Last " W "Room-Bed: ",$S(RB="":"* NF *",1:RB),?53,"Ht(cm): ",?61 W:PSJPHT["_" PSJPHT W:PSJPHT'["_"
  • Line Location: ENHEAD+10
Function Call: WRITE
  • Prompt: ?68,PSJPHTD
  • Line Location: ENHEAD+10
Function Call: WRITE
  • Prompt: !?4,"DOB: ",$S($D(PSJY2K):$E($P(PSJPDOB,"^",2),1,10),1:$E($P(PSJPDOB,"^",2),1,8))_" ("_PSJPAGE_")"
  • Line Location: ENHEAD+11
Function Call: WRITE
  • Prompt: ?30,"Team: ",$S(TEAM]"":TEAM,1:"* NF *")
  • Line Location: ENHEAD+13
Function Call: WRITE
  • Prompt: ?68,PSJPWTD
  • Line Location: ENHEAD+14
Function Call: WRITE
  • Prompt: !?5,"Dx: ",$S(PSJPDX]"":PSJPDX,1:"* NF *")
  • Line Location: ENHEAD+16
Function Call: WRITE
  • Prompt: ?PSJPDD>0*6+43,$S(PSJPDD:"Discharged: ",1:"Last transferred: "),$S($D(PSJY2K):$E($P(X,"^",2),1,10),1:$E($P(X,"^",2),1,8))
  • Line Location: ENHEAD+16
Function Call: WRITE
  • Prompt: !?2,$G(ZDSPL),?51,"BSA (m2): ",$G(PSJBSA)
  • Line Location: ENHEAD+26
Function Call: WRITE
  • Prompt: !?1,"Pharmacy Narrative: "
  • Line Location: ENHEAD+28
Function Call: WRITE
  • Prompt: " ____________________"
  • Condition for execution: SI=""&($E(IOST)="P")
  • Line Location: ENHEAD+28
Function Call: WRITE
  • Prompt: !,?21
  • Condition for execution: $X+$L(WRD)>79
  • Line Location: ENHEAD+30
Function Call: WRITE
  • Prompt: " ",WRD
  • Line Location: ENHEAD+30
Function Call: WRITE
  • Prompt: !?1,"Allergies: "
  • Line Location: ENHEAD+32
Function Call: WRITE
  • Prompt: $C(7),!!?80-$L(X)\2,X
  • Line Location: ENHEAD+34
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+5
Function Call: WRITE
  • Prompt: PSGVALG(KKA)
  • Line Location: ALG+5
Function Call: WRITE
  • Prompt: !," NV Aller.: "
  • Line Location: ALG+6
Function Call: WRITE
  • Prompt: !?12
  • Condition for execution: KKA>1
  • Line Location: ALG+7
Function Call: WRITE
  • Prompt: PSGALG(KKA)
  • Line Location: ALG+7
Function Call: WRITE
  • Prompt: !?7,"ADR: "
  • Line Location: ADR+2
Function Call: WRITE
  • Prompt: !?12
  • Condition for execution: KKA>1
  • Line Location: ADR+5
Function Call: WRITE
  • Prompt: PSGVADR(KKA)
  • Line Location: ADR+5
Function Call: WRITE
  • Prompt: !?4,"NV ADR: "
  • Line Location: ADR+6
Function Call: WRITE
  • Prompt: !?12
  • Condition for execution: KKA>1
  • Line Location: ADR+7
Function Call: WRITE
  • Prompt: PSGADR(KKA)
  • Line Location: ADR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] STUFF+10, ENHEAD+28, ENHEAD+34
^PS(57.7 - [#57.7] ENHEAD+12

Label References

Name Line Occurrences
ADR ENHEAD+32
ALG ENHEAD+32
NONE ENHEAD+32

Naked Globals

Name Field # of Occurrence
^(0 ENHEAD+12
^(5.1 STUFF+10, ENHEAD+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% STUFF+1~, STUFF+8
ALFLG STUFF+1~, ENHEAD+31*, ENHEAD+32, ALG+1*, ADR+1
DFN ENTRY~, STUFF+7, STUFF+10, STUFF+13, ENHEAD+19, ENHEAD+20, ENHEAD+28, ENHEAD+31, ENHEAD+34
>> ENGET ENHEAD+1
GONE STUFF+1~
HDT STUFF+1~, STUFF+8*, ENHEAD+6
IOF ENHEAD+5
IOST ENHEAD+28, ENHEAD+33, NONE+2
KKA STUFF+1~, ALG+5*, ALG+7*, ADR+5*, ADR+7*
LEN STUFF+1~, ENHEAD+29*, ENHEAD+30
LENCHK STUFF+1~, ENHEAD+29*, ENHEAD+30*
PG ENTRY~, ENHEAD+9
>> PPAGE STUFF+6*, STUFF+7*, ALG+1
PSGADR STUFF+1~, ENHEAD+32, ALG+1, ADR+4
PSGADR( ADR+7
PSGADR(1 ADR+3*, ADR+4*, ADR+6
PSGALG STUFF+1~, ENHEAD+32, ALG+1, ALG+3
PSGALG( ALG+7
PSGALG(1 ALG+2*, ALG+3, ALG+4*, ALG+6
PSGDT STUFF+1~, STUFF+8*
>> PSGID STUFF+12*
>> PSGP STUFF+7*, ENHEAD+31*
>> PSGP(0 STUFF+14*, ENHEAD+9
>> PSGPTMP STUFF+6*, STUFF+7*
>> PSGVADR ENHEAD+32, ALG+4
>> PSGVADR( ADR+5
>> PSGVADR(1 ALG+4, ADR+3
>> PSGVALG ENHEAD+32
>> PSGVALG( ALG+5
>> PSGVALG(1 ALG+2, ALG+4*
PSGVWA STUFF+1~, ENHEAD+9
PSJBSA ENHEAD+19*, ENHEAD+26!
>> PSJIVOF ENHEAD+9
PSJNARC ENTRY~, ENHEAD+28
PSJNEW STUFF+6!
PSJOPC ENTRY~, ENHEAD+4, ENHEAD+6
PSJPAD STUFF+1~, STUFF+10*, STUFF+11*, ENHEAD+15
PSJPAGE STUFF+1~, STUFF+14*, ENHEAD+11
PSJPDD STUFF+1~, STUFF+10*, STUFF+12*, ENHEAD+9, ENHEAD+10, ENHEAD+15, ENHEAD+16
PSJPDOB STUFF+1~, STUFF+14*, ENHEAD+11
PSJPDX STUFF+1~, STUFF+10*, STUFF+11*, ENHEAD+16
PSJPHT STUFF+1~, ENHEAD+10
PSJPHTD STUFF+1~, ENHEAD+10
PSJPPID STUFF+1~, STUFF+14*, ENHEAD+10
PSJPR STUFF+1~, ENHEAD+9
PSJPRB STUFF+1~, STUFF+10*, STUFF+11*, ENHEAD+1
PSJPSEX STUFF+1~, STUFF+14*, ENHEAD+15
PSJPTD STUFF+1~, STUFF+10*, STUFF+12*, ENHEAD+16
PSJPWD STUFF+1~, STUFF+10*, STUFF+11*, ENHEAD+12
PSJPWDN STUFF+1~, STUFF+10*, STUFF+11*, ENHEAD+9
PSJPWT STUFF+1~, ENHEAD+14
>> PSJPWTD ENHEAD+14
PSJTEAM ENTRY~, ENHEAD+12
PSJWTD STUFF+1~
PSJY2K ENTRY~, STUFF+15, ENHEAD+11, ENHEAD+15, ENHEAD+16
RB STUFF+1~, STUFF+10*, STUFF+11*, ENHEAD+1*, ENHEAD+10, ENHEAD+12
RSLT ENHEAD+20*, ENHEAD+22, ENHEAD+23, ENHEAD+24, ENHEAD+25, ENHEAD+26!
SI STUFF+1~, ENHEAD+28*, ENHEAD+29, ENHEAD+30
>> SLS ENHEAD+2*, ENHEAD+8
TEAM STUFF+1~, ENHEAD+12*, ENHEAD+13
U ENHEAD+8
>> VA("PID" STUFF+14
>> VA200 STUFF+9*
>> VADM(1 STUFF+14
>> VADM(3 STUFF+14
>> VADM(4 STUFF+14
>> VADM(5 STUFF+14
>> VAIN(4 STUFF+10, STUFF+11
>> VAIN(5 STUFF+10
>> VAIN(7 STUFF+10
>> VAIN(9 STUFF+10
>> VAIP("D" STUFF+11*
>> VAIP(13 STUFF+11
>> VAIP(3 STUFF+12
>> VAIP(4 STUFF+12
>> VAIP(5 STUFF+11
>> VAIP(6 STUFF+11
>> VAIP(9 STUFF+11
WCNT STUFF+1~, ENHEAD+28*, ENHEAD+30*
WRD STUFF+1~, ENHEAD+30*
X STUFF+1~, STUFF+12*, STUFF+15*, ENHEAD+7~*, ENHEAD+8, ENHEAD+16*, ENHEAD+34*
ZDSPL ENHEAD+22*, ENHEAD+23*, ENHEAD+24*, ENHEAD+25*, ENHEAD+26!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All