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

Package Total Call Graph
Inpatient Medications 4 ($$ENDTC,$$ENDTC2)^PSGMI  $$SITE^PSGMMAR2  HTWT^PSJAC  ATS^PSJMUTL  
Registration 1 (DEM,IN5,INP)^VADPT  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 8

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

Entry Points

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

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
ATS^PSJMUTL ENHEAD+20
DEM^VADPT STUFF+13
IN5^VADPT STUFF+11
INP^VADPT STUFF+9

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: PSJOPC="IV"
  • Variable: O F I L E" W
  • 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
  • Timeout: PSJOPC="IV"
  • Variable: O F I L E" W
  • 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: !?1,"Pharmacy Narrative: "
  • Line Location: ENHEAD+17
Function Call: WRITE
  • Prompt: " ____________________"
  • Condition for execution: SI=""&($E(IOST)="P")
  • Line Location: ENHEAD+17
Function Call: WRITE
  • Prompt: !,?21
  • Condition for execution: $X+$L(WRD)>79
  • Line Location: ENHEAD+19
Function Call: WRITE
  • Prompt: " ",WRD
  • Line Location: ENHEAD+19
Function Call: WRITE
  • Prompt: !?1,"Allergies: "
  • Line Location: ENHEAD+21
Function Call: WRITE
  • Prompt: $C(7),!!?80-$L(X)\2,X
  • Line Location: ENHEAD+23
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+17, ENHEAD+23
^PS(57.7 - [#57.7] ENHEAD+12

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% STUFF+1~, STUFF+8
ALFLG STUFF+1~, ENHEAD+20*, ENHEAD+21, ALG+1*, ADR+1
DFN ENTRY~, STUFF+7, STUFF+10, STUFF+13, ENHEAD+17, ENHEAD+20, ENHEAD+23
>> ENGET ENHEAD+1
GONE STUFF+1~
HDT STUFF+1~, STUFF+8*, ENHEAD+6
IOF ENHEAD+5
IOST ENHEAD+17, ENHEAD+22, NONE+2
KKA STUFF+1~, ALG+5*, ALG+7*, ADR+5*, ADR+7*
LEN STUFF+1~, ENHEAD+18*, ENHEAD+19
LENCHK STUFF+1~, ENHEAD+18*, ENHEAD+19*
PG ENTRY~, ENHEAD+9
>> PPAGE STUFF+6*, STUFF+7*, ALG+1
PSGADR STUFF+1~, ENHEAD+21, ALG+1, ADR+4
PSGADR( ADR+7
PSGADR(1 ADR+3*, ADR+4*, ADR+6
PSGALG STUFF+1~, ENHEAD+21, 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+20*
>> PSGP(0 STUFF+14*, ENHEAD+9
>> PSGPTMP STUFF+6*, STUFF+7*
>> PSGVADR ENHEAD+21, ALG+4
>> PSGVADR( ADR+5
>> PSGVADR(1 ALG+4, ADR+3
>> PSGVALG ENHEAD+21
>> PSGVALG( ALG+5
>> PSGVALG(1 ALG+2, ALG+4*
PSGVWA STUFF+1~, ENHEAD+9
>> PSJIVOF ENHEAD+9
PSJNARC ENTRY~, ENHEAD+17
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
SI STUFF+1~, ENHEAD+17*, ENHEAD+18, ENHEAD+19
>> SLS ENHEAD+2*, ENHEAD+8
TEAM STUFF+1~, ENHEAD+12*, ENHEAD+13
U ENHEAD+8
VA STUFF+1~
VA("PID" STUFF+14
VA200 STUFF+1~, STUFF+9*
VADM STUFF+1~
VADM(1 STUFF+14
VADM(3 STUFF+14
VADM(4 STUFF+14
VADM(5 STUFF+14
VAIN STUFF+1~
VAIN(4 STUFF+10, STUFF+11
VAIN(5 STUFF+10
VAIN(7 STUFF+10
VAIN(9 STUFF+10
VAIP STUFF+1~
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+17*, ENHEAD+19*
WRD STUFF+1~, ENHEAD+19*
X STUFF+1~, STUFF+12*, STUFF+15*, ENHEAD+7~*, ENHEAD+8, ENHEAD+16*, ENHEAD+23*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All