Routine: PSJPDAPP

Package	Total	Call Graph
Inpatient Medications	5	OCL1^PSJORRE LOG^PSJPADE GETDSARS^PSJPDAPP $$CHKPD^PSJPDCL ($$PDACT,RESNDORDS,SRBLD)^PSJPDCLA
Health Level Seven	2	INIT^HLFNC2 GENERATE^HLMA
Registration	2	IN5^VADPT $$SITE^VASITE
VA FileMan	2	C^%DTC $$GET1^DIQ
Scheduling	1	GETPLIST^SDAMA202

Package	Total	Caller Graph
Inpatient Medications	5	PSJ PADE APPOINTMENT TASK PSJPDAPP PSJPDCL PSJPDCLA PSJPDCLV
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
APPT	;
ALLCLN	;
CLARR	;
PV19	;
GETPSARS(PSYSIN,DFNIN,FILTER)	; Return Send Area for all clinic orders for patient DFN ; OUTPUT: ^TMP($J,"PSJCLSA",PSYSIN,PDIVIN,"CL",CLINICIEN,SENDAREAIEN)=PCLSAS ; ^TMP($J,"PSJCLSA",PSYSIN,PDIVIN,"SA",SENDAREAIEN,CLINICIEN)=PCLSAS ; PCLSAS=Send Area Name^PADE System^Division^Clinic Name^Source of Send Area value ; INPUT ; PSYSIN (required) - PADE System IEN from File #58.7 ; FILTER (optional) - 0: No filter ; 1: INCLUDE CLINIC IN BG JOB required (set to YES). ; 2: RE-SEND ORDERS AT CHECK-IN required (set to YES) ; 3: Both INCLUDE CLINIC IN BG JOB and RE-SEND ORDERS AT CHECK-IN required (set to YES)
GETDSARS(PSYSIN,PDIVIN,FILTER)	; Return Send Area for all clinics in Division PDIVIN ; OUTPUT: ^TMP($J,"PSJCLSA",PSYSIN,PDIVIN,"CL",CLINICIEN,SENDAREAIEN)=PCLSAS ; ^TMP($J,"PSJCLSA",PSYSIN,PDIVIN,"SA",SENDAREAIEN,CLINICIEN)=PCLSAS ; PCLSAS=Send Area Name^PADE System^Division^Clinic Name^Source of Send Area value ; INPUT ; PSYSIN (required) - PADE System IEN from File #58.7 ; PDIVIN (required) - PADE Division from File #58.7 ; FILTER (optional) - 0: No filter ; 1: INCLUDE CLINIC IN BG JOB required (set to YES). ; 2: RE-SEND ORDERS AT CHECK-IN required (set to YES) ; 3: Both INCLUDE CLINIC IN BG JOB and RE-SEND ORDERS AT CHECK-IN required (set to YES)
TMPSA(PSYSIN,PDIVIN,CLIN,FILTER)	; Build ^TMP( for clinic CLIN
GETSAR(PSYSIN,PDIVIN,PCLININ,FILTER)	; Return Send Area for clinic PCLIN ; PSYS - PADE system from PADE SYSTEM SETUP (#58.7) ; PDIV - Division from PADE SYSTEM SETUP (#58.7) (pointer to MEDICAL CENTER DIVISION #40.8) ; PSNDAR - Send Area from PADE SYSTEM SETUP (58.7) associated with the lowest (most specific/granular) clinic parameter
KILLTMP	; Clean up ^TMP($J,"PSJCLSA")

Name	Field # of Occurrence
C^%DTC	APPT+5
$$GET1^DIQ	GETPSARS+26, GETPSARS+27, GETPSARS+29
INIT^HLFNC2	EN+20
GENERATE^HLMA	APPT+29
OCL1^PSJORRE	GETPSARS+17
LOG^PSJPADE	APPT+30
GETDSARS^PSJPDAPP	EN+15
$$CHKPD^PSJPDCL	APPT+18
$$PDACT^PSJPDCLA	EN+4
RESNDORDS^PSJPDCLA	APPT+32
SRBLD^PSJPDCLA	APPT+25
GETPLIST^SDAMA202	APPT+6
IN5^VADPT	APPT+15
$$SITE^VASITE	EN+27

FileNo	Call Tags
^SC - [#44]	GET1^DIQ
55.01	GET1^DIQ
55.06	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	PV19+15, PV19+16
^DPT - [#2]	APPT+12, APPT+14
^ORD(101 - [#101]	EN+19
^PS(57.8 - [#57.8]	CLARR+16, GETSAR+69, GETSAR+70
^PS(58.7 - [#58.7]	EN+4, EN+7, EN+8, EN+9, EN+24, APPT+12, CLARR+2, CLARR+7, CLARR+8, CLARR+10 , CLARR+11, CLARR+14, CLARR+19, GETSAR+19, GETSAR+24, GETSAR+25, GETSAR+28, GETSAR+32, GETSAR+33, GETSAR+37 , GETSAR+40, GETSAR+43, GETSAR+46, GETSAR+53, GETSAR+56, GETSAR+59, GETSAR+62, GETSAR+71, GETSAR+74, GETSAR+77 , GETSAR+80, GETSAR+87, GETSAR+88, GETSAR+93, GETSAR+94, GETSAR+97, GETSAR+100
^PS(58.71 - [#58.71]	EN+11, CLARR+4, CLARR+9, CLARR+15, CLARR+20, PV19+3, PV19+4, GETSAR+34, GETSAR+47, GETSAR+63 , GETSAR+81, GETSAR+95
^SC - [#44]	APPT+2, ALLCLN+1, ALLCLN+2, ALLCLN+3, CLARR+23, PV19+11, GETDSARS+16, TMPSA+2, TMPSA+3, GETSAR+17
^SC("B"	CLARR+21, CLARR+23, PV19+10
^TMP("PS"	GETPSARS+15!, GETPSARS+18, GETPSARS+21, GETPSARS+23
^TMP($J	EN+3!, APPT+1!, APPT+7, APPT+9, APPT+10, APPT+11, GETPSARS+15!, TMPSA+7, TMPSA+8, KILLTMP+1!

Name	Line Occurrences
$$GETSAR	TMPSA+4
ALLCLN	EN+11
APPT	EN+28
CLARR	EN+12
KILLTMP	EN+17, EN+29
PV19	APPT+28
TMPSA	GETPSARS+35, GETDSARS+17

Name	Field # of Occurrence
^(	CLARR+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APDTM	APPT+8!
APT	EN+21~
CLIN	GETPSARS+12~, GETDSARS+13~, GETDSARS+16*, GETDSARS+17, TMPSA~, TMPSA+2, TMPSA+3, TMPSA+4, TMPSA+5, TMPSA+7 , TMPSA+8
CLINICA	GETPSARS+20~, GETPSARS+35*
CLINICA(	GETPSARS+31*, GETPSARS+34, GETPSARS+35
CLINICA(""	GETPSARS+32
CLINICI	GETPSARS+22~, GETPSARS+26, GETPSARS+27, GETPSARS+28, GETPSARS+29, GETPSARS+31
CLNM	APPT+8!
CNM	EN+18~*, EN+19
>> CNT	GETPSARS+15*
DC	GETSAR+20~*, GETSAR+21
DFN	EN+21~, APPT+11, APPT+12, APPT+14, APPT+32, GETPSARS+12~, GETPSARS+16, GETPSARS+17, GETPSARS+25
DFNIN	GETPSARS~, GETPSARS+16
DIVISION	GETPSARS+12~, GETPSARS+29, GETPSARS+30, GETPSARS+31, GETPSARS+34, GETPSARS+35
DN	GETSAR+19~*, GETSAR+20
DT	EN+9, APPT+4, APPT+5, APPT+6, GETSAR+21
DTP	EN+1~, EN+2, EN+7, APPT+3*, APPT+5, APPT+25, ALLCLN+4, CLARR+5, CLARR+12, CLARR+17 , CLARR+24
EDT	EN+21~, APPT+4, APPT+5, APPT+6
FILTER	GETPSARS~, GETPSARS+13, GETPSARS+35, GETDSARS~, GETDSARS+14, GETDSARS+17, TMPSA~, TMPSA+4, GETSAR~, GETSAR+39 , GETSAR+42, GETSAR+55, GETSAR+58, GETSAR+73, GETSAR+76, GETSAR+96, GETSAR+99, GETSAR+110, GETSAR+111
FTS	APPT+13~, APPT+20, APPT+26
HL	EN+21~, EN+22, APPT+25
HL("ECH"	EN+22, PV19+2
HL("ETN"	PV19+2
HL("FS"	EN+22, APPT+26, PV19+6, PV19+8, PV19+9, PV19+10, PV19+13, PV19+14, PV19+15, PV19+17
HLA	APPT+27!
HLA("HLS"	APPT+28*
HLFS	EN+21~, EN+22*
HLP	APPT+27!*, APPT+29
HLP("SUBSCRIBER"	APPT+27*
I	EN+1~, EN+2, EN+4, EN+6, EN+7, EN+8, EN+9, EN+15, ALLCLN+4, CLARR+2 , CLARR+5, CLARR+7, CLARR+8, CLARR+10, CLARR+11, CLARR+12, CLARR+14, CLARR+17, CLARR+19, CLARR+24 , GETPSARS+21, GETPSARS+23
IENS	GETPSARS+22~, GETPSARS+25*, GETPSARS+26, GETPSARS+27
J	EN+1~, EN+4, EN+8, EN+9, EN+15, ALLCLN+2, ALLCLN+4, CLARR+2, CLARR+5, CLARR+7 , CLARR+8, CLARR+10, CLARR+11, CLARR+12, CLARR+14, CLARR+17, CLARR+19, CLARR+23, CLARR+24, GETPSARS+23* , GETPSARS+24
K	EN+1~, CLARR+2, CLARR+3, CLARR+5, CLARR+11, CLARR+12, CLARR+17, CLARR+23, CLARR+24
L	EN+1~, CLARR+18, CLARR+23
N19	PV19+1~, PV19+2, PV19+12, PV19+13
NC	PV19+1~, PV19+2, PV19+5, PV19+6, PV19+7, PV19+8, PV19+9, PV19+10, PV19+13, PV19+14 , PV19+15, PV19+17
NCLI	PV19+1~, PV19+9, PV19+10, PV19+11, PV19+12
ND	ALLCLN+1~, ALLCLN+2, GETPSARS+12~, GETDSARS+13~, TMPSA+2
NDFN	PV19+1~, PV19+6*, PV19+12
NECH	EN+21~, EN+22*, APPT+20
NFS	EN+21~, EN+22*
NHL	EN+20~, EN+22, APPT+25
NQ	PV19+1~, PV19+2, PV19+5, PV19+7
NS	PV19+1~, PV19+2*, PV19+9, PV19+10, PV19+15
NSA	PV19+1~, PV19+2, PV19+3, PV19+12
NSEG	EN+21~, APPT+13!, APPT+28
NSEG(	APPT+26, PV19+5, PV19+6, PV19+7, PV19+8, PV19+9, PV19+10, PV19+13, PV19+14, PV19+15 , PV19+17
NWDI	PV19+1~, PV19+15*, PV19+16
P	EN+1~, CLARR+21*, CLARR+22, CLARR+23
PCLINAM	GETSAR+6~, GETSAR+17*, GETSAR+48, GETSAR+64, GETSAR+82, GETSAR+89, GETSAR+103, GETSAR+112
PCLININ	GETSAR~, GETSAR+5, GETSAR+17, GETSAR+37, GETSAR+53, GETSAR+69, GETSAR+70
PCLSAS	TMPSA+1~, TMPSA+4*, TMPSA+5, TMPSA+6, TMPSA+7, TMPSA+8
PCLSAS(	TMPSA+5*
PDA	EN+1~, APPT+9*, APPT+10, APPT+11
PDCL	EN+1~, EN+16*, EN+17
PDCL(	EN+23, EN+26, EN+28, APPT+3, ALLCLN+4*
PDCLA	EN+1~, EN+16
PDCLA(	CLARR+5, CLARR+12, CLARR+17, CLARR+24
PDI	EN+1~, EN+23*, EN+24, EN+26, EN+28, APPT+3, APPT+12, APPT+22, APPT+23, APPT+24 , APPT+28, APPT+32
PDIVIN	GETDSARS~, GETDSARS+12, GETDSARS+17, TMPSA~, TMPSA+2, TMPSA+4, TMPSA+5, TMPSA+7, TMPSA+8, GETSAR~ , GETSAR+5, GETSAR+19, GETSAR+24, GETSAR+28, GETSAR+32, GETSAR+33, GETSAR+37, GETSAR+40, GETSAR+43, GETSAR+46 , GETSAR+48, GETSAR+53, GETSAR+56, GETSAR+59, GETSAR+62, GETSAR+64, GETSAR+71, GETSAR+74, GETSAR+77, GETSAR+80 , GETSAR+82, GETSAR+87, GETSAR+88, GETSAR+93, GETSAR+94, GETSAR+97, GETSAR+100, GETSAR+103, GETSAR+112
PDJ	EN+1~, EN+26*, EN+27, EN+28, APPT+3, APPT+32
PDK	EN+1~, EN+28*, APPT+2, APPT+3, APPT+6
>> PDL(1	PV19+6*
>> PDL(10	PV19+2*
>> PDL(11	PV19+4*
>> PDL(12	PV19+3*
>> PDL(4	PV19+2*
>> PDL(5	PV19+11, PV19+16
>> PDL(6	PV19+17*
>> PDL(7	PV19+16*
>> PDL(8	PV19+12*
>> PDL(9	PV19+12*
PSADIVDF	GETSAR+6~, GETSAR+10, GETSAR+34, GETSAR+109, GETSAR+112
PSADIVDFI	GETSAR+6~, GETSAR+11, GETSAR+33, GETSAR+34, GETSAR+112
PSJAP	EN+1~, EN+2*, EN+5
PSJAP(	EN+6
PSJBGJOB	GETSAR+6~, GETSAR+14, GETSAR+42, GETSAR+43, GETSAR+44, GETSAR+45, GETSAR+58, GETSAR+59, GETSAR+60, GETSAR+61 , GETSAR+76, GETSAR+77, GETSAR+78, GETSAR+79, GETSAR+99, GETSAR+100, GETSAR+101*, GETSAR+102
PSJBGJOBD	GETSAR+6~, GETSAR+15, GETSAR+28, GETSAR+29, GETSAR+44, GETSAR+45, GETSAR+60, GETSAR+61, GETSAR+78, GETSAR+79 , GETSAR+101, GETSAR+102*, GETSAR+111
PSJCLPD	EN+1~
PSJDIV	EN+1~
PSJDNM	EN+21~, EN+27*
PSJDNS	EN+21~, EN+25*, APPT+27
PSJDTM	EN+21~, APPT+10*
PSJLEN	GETSAR+88~, GETSAR+90
PSJLEN(	GETSAR+89*, GETSAR+92
PSJLEN(999	GETSAR+91
PSJND	EN+21~, EN+24*, EN+25
PSJNIP	EN+1~, APPT+13, APPT+19, APPT+23, APPT+24
PSJNORES	GETSAR+6~
PSJOR	EN+21~, APPT+2*, APPT+32
PSJORD	GETPSARS+20~, GETPSARS+23*, GETPSARS+24, GETPSARS+25, GETPSARS+26, GETPSARS+27
PSJORN	EN+21~, APPT+2*
PSJPDNM	EN+1~
PSJPSARI	GETSAR+7~, GETSAR+87, GETSAR+91, GETSAR+92, GETSAR+93, GETSAR+94, GETSAR+97, GETSAR+100
PSJQ	APPT+16~, APPT+18, APPT+19, GETSAR+6~, GETSAR+9, GETSAR+48, GETSAR+49, GETSAR+64, GETSAR+65, GETSAR+82* , GETSAR+83, GETSAR+103, GETSAR+104, GETSAR+112, GETSAR+113
PSJQ(	APPT+21, APPT+22
PSJRBD	APPT+16~, APPT+17*, APPT+18
PSJRESND	GETSAR+6~, GETSAR+12, GETSAR+39, GETSAR+40, GETSAR+41, GETSAR+50, GETSAR+55, GETSAR+56, GETSAR+57, GETSAR+66 , GETSAR+73, GETSAR+74, GETSAR+75, GETSAR+84, GETSAR+96, GETSAR+97, GETSAR+98*, GETSAR+105
PSJRESNDD	GETSAR+6~, GETSAR+13, GETSAR+24, GETSAR+25*, GETSAR+41, GETSAR+57, GETSAR+75, GETSAR+98, GETSAR+110
PSJSAR	GETSAR+6~, GETSAR+47, GETSAR+48, GETSAR+63, GETSAR+64, GETSAR+81, GETSAR+82, GETSAR+95, GETSAR+103
PSJSARI	GETSAR+6~, GETSAR+37, GETSAR+38, GETSAR+40, GETSAR+43, GETSAR+46, GETSAR+47, GETSAR+48, GETSAR+53, GETSAR+54 , GETSAR+56, GETSAR+59, GETSAR+62, GETSAR+63, GETSAR+64, GETSAR+70, GETSAR+71, GETSAR+72, GETSAR+74, GETSAR+77 , GETSAR+80, GETSAR+81, GETSAR+82, GETSAR+94, GETSAR+95, GETSAR+103
PSJSND	APPT+27!, APPT+29
PSJVNM	EN+21~, EN+25*
PSJVP	EN+21~, EN+25*, APPT+27
PSJWC	GETSAR+88~*, GETSAR+89
PSJWD	APPT+16~, APPT+17*, APPT+18
PSJXCL	APPT+8!
PSJXCL(	APPT+24
PSYSIN	GETPSARS~, GETPSARS+11, GETPSARS+35, GETDSARS~, GETDSARS+12, GETDSARS+17, TMPSA~, TMPSA+4, TMPSA+5, TMPSA+7 , TMPSA+8, GETSAR~, GETSAR+5, GETSAR+19, GETSAR+24, GETSAR+25, GETSAR+28, GETSAR+32, GETSAR+33, GETSAR+37 , GETSAR+40, GETSAR+43, GETSAR+46, GETSAR+48, GETSAR+53, GETSAR+56, GETSAR+59, GETSAR+62, GETSAR+64, GETSAR+71 , GETSAR+74, GETSAR+77, GETSAR+80, GETSAR+82, GETSAR+87, GETSAR+88, GETSAR+93, GETSAR+94, GETSAR+97, GETSAR+100 , GETSAR+103, GETSAR+112
SA	EN+1~, EN+10, EN+11, ALLCLN+4, CLARR+1, CLARR+3, CLARR+4, CLARR+5, CLARR+8, CLARR+9* , CLARR+12, CLARR+15, CLARR+17, CLARR+20, CLARR+24
SEQ	EN+1~, APPT+25, APPT+26
SNDAREA	TMPSA+6~*
SNDAREAI	TMPSA+6~*, TMPSA+7, TMPSA+8
SNM	EN+18~*, EN+19, EN+20, APPT+29
>> VAIP(5	APPT+17
>> VAIP(6	APPT+17
>> VAIP(8	APPT+20
X	EN+1~, APPT+5, ALLCLN+3, CLARR+10, CLARR+11, CLARR+14, CLARR+15, CLARR+16, CLARR+19, CLARR+20 , CLARR+21, TMPSA+3*
X1	EN+1~, APPT+5*
X2	EN+1~, APPT+5*
XX	APPT+13~, APPT+21, APPT+22, APPT+23, APPT+28~, PV19+2
Y	EN+1~, EN+9, EN+11, CLARR+16, CLARR+17, CLARR+21*, CLARR+22
Z	EN+1~, ALLCLN+1, ALLCLN+2, ALLCLN+3, ALLCLN+4, CLARR+1, CLARR+2, CLARR+6, CLARR+7, CLARR+8 , CLARR+10, CLARR+11, CLARR+13, CLARR+14, CLARR+18, CLARR+19*
ZZ1	APPT+13~, APPT+22, APPT+26, PV19+4
ZZ2	APPT+25~*, APPT+26, PV19+3

Customize PDF page

Package: Inpatient Medications

Routine: PSJPDAPP

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: