Routine: PSOTPCLP

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC (,KILL)^%ZTLOAD $$FMTE^XLFDT
Outpatient Pharmacy	3	$$CHKTEMP^PSOBAI ($$CHKINST,$$INSTCHK,SEL)^PSOTPCL LOADTMP^PSOTPCLW
VA Fileman	3	^DIC ($$GET1,D)^DIQ ^DIR
Registration	2	$$BADADR^DGUTL3 (ADD,DEM)^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO TPB PRINT LETTERS

Entry Points

Name	Comments	DBIA/ICR reference
LOAD
DIVISION	;print by division
HEADER	; print letter header
PATIENT	; print by patients
DEQUE	; DEQUE/PRINT LETTERS
CCADD	; Get Confidential Correspondence Address if one is active ; and has the category "all other".
GETDIV(DIVDA)	; GET DIVISIONAL DATA
SORTPAT	; sort by patient
DSPPAT(DFN)	; Display Division and expire date
PATSEL	; Select one or more patients
DEVICE	;
LST
PRTLET	; pull DIVDAs and DFNs from ^TMP($J,"TPBLET",
EXIT	;
GET1(FILE,FLIEN,FLDX)	; "Variable^FLD" load variable = FILE,FLD
PRINT	; select options
LETTER(DFN)	; print letter , division variables information must be present
DIV
GETPAT(DFN)	;GET PATIENT DATA

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+2
^%ZISC	EXIT+1
^%ZTLOAD	DEVICE+9
KILL^%ZTLOAD	EXIT+2
$$BADADR^DGUTL3	GETPAT+14
^DIC	PATSEL+3
$$GET1^DIQ	PRINT+6, PRINT+10, PATSEL+3, PATSEL+5, PATSEL+9, PATSEL+11, PATSEL+14, PATSEL+16, DSPPAT+2, DSPPAT+3 , DSPPAT+5, DEQUE+5, DEQUE+8, PRTLET+18, GETPAT+2, DIV+1, GET1+1, LOAD
D^DIQ	PRTLET+13, GETPAT+8
^DIR	PRINT+12, DIVISION+2, LST+2, LST+5
$$CHKTEMP^PSOBAI	GETPAT+14
$$CHKINST^PSOTPCL	PRINT+9, PATSEL+15, PRTLET+4
$$INSTCHK^PSOTPCL	PRINT+7
SEL^PSOTPCL	DIVISION+5
LOADTMP^PSOTPCLW	PRTLET+1
ADD^VADPT	GETPAT+4
DEM^VADPT	GETPAT+4
$$FMTE^XLFDT	DSPPAT+4, DSPPAT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"None Selected - Quitting",! Line Location: PRINT+16
Function Call: WRITE	Prompt: !,"No Selection Made - Quitting",! Line Location: DIVISION+6
Function Call: WRITE	Prompt: !!,"Sorry, ",PTNM," died ",XX,! Line Location: PATSEL+6
Function Call: WRITE	Prompt: !,"Sorry, ",PTNM,"'s eligibility expired ",EXPDT,! Line Location: PATSEL+12
Function Call: WRITE	Prompt: !!,"Sorry, ",$$GET1^DIQ(52.91,DFN,7)," is missing required fields.",!! Line Location: PATSEL+16
Function Call: WRITE	Prompt: !,"No Patients Selected - Quitting",! Line Location: LST+0
Function Call: WRITE	Prompt: !!,"You have selected:",! Line Location: LST+1
Function Call: WRITE	Prompt: ! Line Location: LST+5
Function Call: WRITE	Prompt: ?32,$E(DIVNM,1,15) Line Location: DSPPAT+2
Function Call: WRITE	Prompt: ?50,"Inact ",EXPDT Line Location: DSPPAT+4
Function Call: WRITE	Prompt: ?66,"Prt ",PRTDT Line Location: DSPPAT+6
Function Call: WRITE	Prompt: !,"Queueing is recommended",! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !!,"Tasked with "_ZTSK Line Location: DEVICE+10
Function Call: WRITE	Prompt: @IOF,!!,?10,"SUMMARY of TPB LETTER PRINTING ",SRDT Line Location: PRTLET+14
Function Call: WRITE	Prompt: !! Line Location: PRTLET+15
Function Call: WRITE	Prompt: !!,"NO DATA TO PRINT",!! Line Location: PRTLET+16
Function Call: WRITE	Prompt: !,?5,$$GET1^DIQ(52.92,DIVDA,.01),?40,DIVCNT(DIVDA) Line Location: PRTLET+18
Function Call: WRITE	Prompt: ! Line Location: PRTLET+19
Function Call: WRITE	Prompt: !,^(LN) Line Location: LETTER+5
Function Call: WRITE	Prompt: ?30,"PHARMACY SERVICE",!,?30,DIVNM Line Location: LETTER+6
Function Call: WRITE	Prompt: !,?30,MADD1 Line Location: LETTER+8
Function Call: WRITE	Prompt: !,?30,MCITY,", ",MSTATE," ",MZIP Line Location: LETTER+10
Function Call: WRITE	Prompt: !,?30,ADD1 Line Location: LETTER+11
Function Call: WRITE	Prompt: !,?30,CITY,", ",STATE," ",ZIP Line Location: LETTER+13
Function Call: WRITE	Prompt: !,^(LN) Line Location: LETTER+14
Function Call: WRITE	Prompt: " ",PHN1 Line Location: LETTER+15
Function Call: WRITE	Prompt: ", or ",PHN2 Condition for execution: $L(PHN2) Line Location: LETTER+15
Function Call: WRITE	Prompt: ".",! Line Location: LETTER+15
Function Call: WRITE	Prompt: ! Condition for execution: LN>1 Line Location: LETTER+16
Function Call: WRITE	Prompt: ^(LN) Line Location: LETTER+16
Function Call: WRITE	Prompt: !!!!,?4,SIG1 Line Location: LETTER+17
Function Call: WRITE	Prompt: !,?4,SIG2 Condition for execution: $L(SIG2) Line Location: LETTER+17
Function Call: WRITE	Prompt: !,?4,SIG3 Condition for execution: $L(SIG3) Line Location: LETTER+17
Function Call: WRITE	Prompt: ! Line Location: LETTER+18
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !!,?(80-$L(DIVNM))\2,DIVNM Line Location: HEADER+3
Function Call: WRITE	Prompt: !,?(80-$L(ADD1))\2,ADD1 Line Location: HEADER+4
Function Call: WRITE	Prompt: !,?(80-$L(XX))\2,XX Line Location: HEADER+7
Function Call: WRITE	Prompt: ! Line Location: HEADER+8
Function Call: WRITE	Prompt: !,?4,SRNM,?65,SRDT,!,?4,PADD1 Line Location: HEADER+9
Function Call: WRITE	Prompt: !,?4,VAPA(3) Line Location: HEADER+9
Function Call: WRITE	Prompt: !!! Line Location: HEADER+10
Routine Call	DIC Line Location: PATSEL+3
Routine Call	DIR Line Location: PRINT+12 DIVISION+2 LST+2 LST+5
Routine Call	%ZIS Line Location: DEVICE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PS(52.91 - [#52.91]	Classic Fileman Calls, GET1^DIQ
^PS(52.92 - [#52.92]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	CCADD+10
^PS(52.91 - [#52.91]	DEQUE+4, DEQUE+6, SORTPAT+4, PRTLET+11*, LOAD
^PS(52.92 - [#52.92]	PRINT+5, PRINT+8
^TMP($J	PRINT+2!, DEQUE+1!, DEQUE+11, SORTPAT+1!, SORTPAT+8, PRTLET+3, PRTLET+6, PRTLET+8, LETTER+5, LETTER+14 , LETTER+16, EXIT+9!

Label References

Name	Line Occurrences
DEVICE	PRINT+13, PATIENT+4, DIVISION+7
DIV	PRTLET+5
DIVISION	PRINT+15
DSPPAT	LST+2
EXIT	PRINT+3, PRINT+17, PATIENT+3, DIVISION+6, DEVICE+4, PRTLET+16, PRTLET+20
GET1	GETDIV+3, GETDIV+5
GETDIV	DIV, DIV+1
GETPAT	LETTER+2
HEADER	LETTER+4
LETTER	PRTLET+10
PATIENT	PRINT+14
PATSEL	PATIENT+2, LST+6
PRTLET	DEQUE+12, SORTPAT+9
SORTPAT	DEQUE+2

Naked Globals

Name	Field # of Occurrence
^(	LETTER+5, LETTER+14, LETTER+16
^(0	DEQUE+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE+2*
ADD1	LETTER+11, HEADER+4, GETDIV+1!, EXIT+3!
ADD2	LETTER+12, HEADER+5, GETDIV+1!, EXIT+3!
>> CC	CCADD+7*
CHK	EXIT+3!
CITY	LETTER+13, HEADER+6, GETDIV+1!, EXIT+3!
>> DA0	SORTPAT+4*
DFN	PATSEL+3, PATSEL+5, PATSEL+7, PATSEL+9, PATSEL+11, PATSEL+12, PATSEL+14, PATSEL+16, PATSEL+17, LST+2 , DSPPAT~, DSPPAT+2, DSPPAT+3, DSPPAT+5, DEQUE+4, DEQUE+5, DEQUE+6, DEQUE+8, DEQUE+11, SORTPAT+3 , SORTPAT+4, SORTPAT+8, PRTLET+7, PRTLET+8, PRTLET+10, PRTLET+11, LETTER~, LETTER+2, GETPAT~, GETPAT+2 , GETPAT+14, LOAD*
>> DIC	PATSEL+2*
>> DIC("W"	PATSEL+2, PATSEL+3
>> DIC(0	PATSEL+2*
DIR	PRINT+12!, DIVISION+1!, LST+3!, LST+5!
DIR("A"	LST+3, LST+5
DIR("B"	LST+5*
DIR(0	PRINT+12, DIVISION+1, LST+3, LST+5
DIV	EXIT+3!
DIVCNT	PRTLET+2!, PRTLET+16, EXIT+3!
DIVCNT(	PRTLET+4, PRTLET+9, PRTLET+17, PRTLET+18
DIVDA	PRINT+5, PRINT+6, PRINT+8, PRINT+9, PRINT+10, PATSEL+14, PATSEL+15, DEQUE+3, DEQUE+4, DEQUE+11 , SORTPAT+4, SORTPAT+8, PRTLET+3, PRTLET+4, PRTLET+6, PRTLET+8, PRTLET+9, PRTLET+17*, PRTLET+18, DIV , DIV+1, GETDIV~, GETDIV+3, GETDIV+5, EXIT+3!
DIVDA2	DIV+1*, EXIT+3!
DIVNM	DSPPAT+1~, DSPPAT+2*, LETTER+6, HEADER+3, GETDIV+1!, EXIT+3!
DIVX	EXIT+3!
DT	PATSEL+10, PRTLET+11, PRTLET+13, LETTER+3, GETPAT+8
EXPDT	PATSEL+11, PATSEL+12, DSPPAT+1~, DSPPAT+3, DSPPAT+4, LETTER+3, GETPAT+1!, GETPAT+2, EXIT+4!
EXPDTI	PATSEL+9, PATSEL+10, DEQUE+6, DEQUE+7, SORTPAT+4*, SORTPAT+5, EXIT+4!
FAC	EXIT+4!
FDA	EXIT+4!
FILE	GET1~, GET1+1, EXIT+4!
FLD	GET1+1*, EXIT+4!
FLDX	GETDIV+3, GETDIV+5, GET1~, GET1+1, EXIT+4!
FLIEN	GET1~, GET1+1, EXIT+4!
I	LST+2*, EXIT+5!
INST	PRINT+5!, PRINT+8!, DIVISION+5!, DIVISION+6, DEVICE+5*, EXIT+5!
INST(	PRINT+6, PRINT+10, DEQUE+3
IO	LETTER+1, HEADER+1
IO("Q"	DEVICE+4
IOF	PRTLET+14, HEADER+2
LN	LETTER+5, LETTER+14, LETTER+16*, EXIT+5!
LOCDA	EXIT+5!
LTPDTI	DEQUE+6, DEQUE+9, DEQUE+10, SORTPAT+4, SORTPAT+6, SORTPAT+7, EXIT+5!
MADD1	LETTER+7, LETTER+8, GETDIV+1!, EXIT+5!
MADD2	LETTER+9, GETDIV+1!, EXIT+5!
MCITY	LETTER+10, GETDIV+1!, EXIT+5!
>> MSTATE	LETTER+10
MZIP	LETTER+10, GETDIV+1!, EXIT+5!
>> PADD1	GETPAT+11, GETPAT+15, CCADD+11*, HEADER+9
>> PADD2	GETPAT+11, GETPAT+15, CCADD+11*, HEADER+9
>> PADD3	GETPAT+11, GETPAT+15, CCADD+11*, HEADER+9
PAR	EXIT+5!
PARAM	PRINT+11!, DEVICE+5*, EXIT+5!
PARAM("LP"	PRINT+13, PATIENT+1, DIVISION+3*, DEQUE+9, DEQUE+10, SORTPAT+6, SORTPAT+7
PARAM("SORT"	PRINT+13, PATIENT+1, DIVISION+4*, DEQUE+2
PARDIV	DIV+1, GETDIV+1!, EXIT+6!
PATLST	PRINT+11!, PRINT+13, PATIENT+3, PATSEL+1!, LST, DEVICE+5*, EXIT+6!, LOAD!
PATLST(	PATSEL+3, PATSEL+7!, PATSEL+12!, PATSEL+17!, LST+2, SORTPAT+2, SORTPAT+3, LOAD
PATNM	LST+2*, EXIT+6!
>> PCITY	GETPAT+12, GETPAT+15, CCADD+12*, HEADER+10
PHN1	LETTER+15, GETDIV+1!, EXIT+6!
PHN2	LETTER+15, GETDIV+1!, EXIT+6!
POP	DEVICE+3, EXIT+6!
PRTDT	DSPPAT+1~, DSPPAT+5, DSPPAT+6, EXIT+6!
PSOBADR	GETPAT+13~, GETPAT+14*
PSOSTOP	PRINT+7, EXIT+6!
PSOTEMP	GETPAT+13~, GETPAT+14*, GETPAT+15
>> PSTATE	GETPAT+15*
PTLNM	GETPAT+5*, EXIT+6!
PTNM	PATSEL+3, PATSEL+6, PATSEL+7, PATSEL+12, PATSEL+17, DEQUE+5, DEQUE+11, SORTPAT+2, SORTPAT+3, SORTPAT+8 , PRTLET+6, PRTLET+8, GETPAT+1!, GETPAT+2*, GETPAT+5, EXIT+6!
>> PTSTAT	CCADD+12*
PTSTATE	GETPAT+1!, GETPAT+12, CCADD+10, HEADER+10, EXIT+7!
PTXNM	GETPAT+5*, EXIT+7!
>> PZIP	GETPAT+12, GETPAT+15, CCADD+12*, HEADER+10
SEX	GETPAT+9*, EXIT+7!
SIG1	LETTER+17, GETDIV+1!, EXIT+7!
SIG2	LETTER+17, GETDIV+1!, EXIT+7!
SIG3	LETTER+17, GETDIV+1!, EXIT+7!
SRANAME	GETPAT+1!, GETPAT+6, GETPAT+7
>> SRCCADD	CCADD+9*
SRDT	PRTLET+13, PRTLET+14, GETPAT+8, HEADER+9, EXIT+7!
SRNAME	EXIT+7!
SRNM	GETPAT+1!, GETPAT+10*, HEADER+9
STATE	LETTER+13, HEADER+6, GETDIV+1!, EXIT+7!
TITLE	GETPAT+1!, GETPAT+7*, EXIT+7!
>> TMP(	PRINT+2!
U	PRTLET+11, GETPAT+12, CCADD+7, CCADD+12
VADM	GETPAT+1!, EXIT+8!
VADM(1	GETPAT+6, GETPAT+10
VADM(5	GETPAT+7, GETPAT+9
VAPA	GETPAT+1!, EXIT+8!
VAPA(1	GETPAT+11
VAPA(12	CCADD+4
VAPA(13	CCADD+11
VAPA(14	CCADD+11
VAPA(15	CCADD+11
VAPA(16	CCADD+12
VAPA(17	CCADD+10, CCADD+12
VAPA(18	CCADD+12
VAPA(2	GETPAT+11
VAPA(22	CCADD+7
VAPA(3	GETPAT+11, HEADER+9
VAPA(4	GETPAT+12
VAPA(5	GETPAT+12
VAPA(6	GETPAT+12
VAR	GET1+1~*, EXIT+8!
>> X	LST+2, GETPAT+6*
XFLD	EXIT+8!
XX	PRINT+7, PATSEL+5, PATSEL+6, PATSEL+15, DEVICE+7, PRTLET+4, CCADD+7, CCADD+8, HEADER+6*, HEADER+7 , EXIT+8!
>> Y	PRINT+13, PRINT+14, PRINT+15, DIVISION+2, DIVISION+3, PATSEL+3, LST+6, PRTLET+13, GETPAT+6, GETPAT+7 , GETPAT+8, HEADER+8
YFLD	EXIT+8!
YY	EXIT+8!
ZIP	LETTER+13, HEADER+6, GETDIV+1!, EXIT+8!
ZTDESC	DEVICE+6*, EXIT+8!
>> ZTRTN	DEVICE+6*
>> ZTSAVE(	DEVICE+7*
ZTSK	DEVICE+4!, DEVICE+10, EXIT+2

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOTPCLP

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: