Routine: PSJHEAD

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

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*

Customize PDF page

Package: Inpatient Medications

Routine: PSJHEAD

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: