Routine: PSJDPT

Call Graph

Package	Total	Call Graph
Registration	4	($$GETACT,DISPPRF)^DGPFAPI (NOTICE,PTSEC)^DGSEC4 $$BADADR^DGUTL3 $$DOB^DPTLK1
VA Fileman	2	^DIC YN^DICN
Inpatient Medications	1	PAUSE^PSJLMUT1
Order Entry Results Reporting	1	($$HAVEHDR,HAVEHDR)^ORRDI1

Package	Total	Caller Graph
Inpatient Medications	7	PSGP PSGVBW0 PSIV PSIVORC PSJMP PSJP PSJPDIR

Name	Comments	DBIA/ICR reference
CHK(Y,DISP,PAUSE)
EN	; MAIN ENTRY POINT FOR PATIENT LOOKUP
DPT
SENS
ENCONT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Remote data not available - Only local order checks processed." Line Location: EN+7
Function Call: WRITE	Prompt: @IOF,"PATIENT: ",$P(Y,U,2) Line Location: CHK+2
Function Call: WRITE	Prompt: !! Line Location: CHK+6
Function Call: WRITE	Prompt: ?(80-$L($P(Y,"^",2)))\2,$P(Y,"^",2),! Line Location: CHK+6
Function Call: WRITE	Prompt: ?(80-$L(RESULT(I)))\2,RESULT(I),! Line Location: CHK+7
Function Call: WRITE	Prompt: !,"Do you want to continue processing this patient record" Line Location: ENCONT+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' to continue processing, or 'NO' to quit processing this record." Line Location: ENCONT+2
Function Call: WRITE	Prompt: ?42,$E(NS,1,3),"-",$E(NS,4,5),"-",$E(NS,6,10)," " Line Location: DPT+2
Function Call: WRITE	Prompt: ?55,$E(NB,4,5),"/",$E(NB,6,7),"/",$E(NB,2,3)," " Line Location: DPT+3
Function Call: WRITE	Prompt: ?67,$P(^(.1),"^") Line Location: DPT+4
Function Call: WRITE	Prompt: ?42,"SENSITIVE ",?55,"SENSITIVE ",?67,"SENSITIVE" Line Location: SENS+0
Routine Call	DIC Line Location: EN+2

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DPT+1, DPT+4
^XTMP("ORRDI"	EN+7

Name	Line Occurrences
ENCONT	CHK+11, ENCONT+2
SENS	DPT

Name	Field # of Occurrence
^(	DPT+4
^(0	DPT+1

Name	Field # of Occurrence
>> %	ENCONT+1*, ENCONT+2
CHKY	CHK~, CHK+3*!
DIC	EN+2!*
DIC("W"	EN+2*
DIC(0	EN+2*
DISP	CHK~, CHK+1*, CHK+6
>> I	CHK+7*
IOF	CHK+2
>> NB	DPT+1*, DPT+3
>> ND	DPT+1*
>> NS	DPT+1*, DPT+2
PAUSE	CHK~, CHK+1*, CHK+8
PSGTEMP	CHK~, CHK+2!
>> PSJNODIS	EN+7
RES	CHK~, CHK+12
RESULT	CHK~, CHK+4
RESULT(	CHK+7
RESULT(1	CHK+5, CHK+8, CHK+9, CHK+10, CHK+11, CHK+12
U	CHK+2
>> XQY0	CHK+2, CHK+12
Y	EN+3, EN+4~, CHK~, CHK+2, CHK+3, CHK+4, CHK+6, CHK+10, CHK+11, CHK+12* , ENCONT+1*, DPT, DPT+1, DPT+4