Routine: PSON52

Package	Total	Call Graph
Outpatient Pharmacy	17	ECMESND^PSOBPSU1 RXACT^PSOBPSU2 ($$STATUS,$$SUBMIT)^PSOBPSUT $$TECH2^PSODGDGP ICD^PSODIAG $$CS^PSOERXA0 $$ERXIEN^PSOERXUT $$GETNDC^PSONDCUT NOOR^PSONEW GACT^PSOPFSU0 (PARK,RMP)^PSOPRKA $$PSOET^PSOREJP3 $$HDLG^PSOREJU1 $$FIND^PSOREJUT ALERT^PSORENW0 (BBRX,ORC)^PSORN52C SUS^PSORXL
VA FileMan	6	(C,NOW)^%DTC $$FIND1^DIC FILE^DICN ^DIE IX1^DIK $$GET1^DIQ
Pharmacy Data Management	3	$$DS^PSSDSAPI PSOUL^PSSLOCK SAVNDC^PSSNDCUT
Kernel	2	(T0,T1)^%ZOSV ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT
Integrated Billing	1	$$SWSTAT^IBBAPI
Mental Health	1	^YSCLTST6
Order Entry Results Reporting	1	$$SUBSCRIB^ORDEA

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSONEW PSOORNE1 PSOORNEW PSORN52

Name	Comments	DBIA/ICR reference
EN(PSOX)	;Entry Point
START	;
END
INIT	;
DT
INITX
NFILE
IBQ	;I $G(PSOBILL)=2 S ^PSRX(PSOX("IRXN"),"IBQ")=$S($G(PSOX("NEWCOPAY")):0,1:1)
ACLOG	;activity log (digitally signed CS orders)
PS55	;
PS55X
DIK	;
FINISH	;
ANQ
FINISHP	;
FINISHX	;call to build Rx array for bingo board
SAVETIT(TITRX,MNTRX)	; Save Titration/Maintenance dose Rx information
EOJ	;
DD	;;PSOX("RX #");;0;;1

Name	Field # of Occurrence
C^%DTC	DT, DT+11
NOW^%DTC	DT+12, ACLOG+2, ANQ, ANQ+8
T0^%ZOSV	START+1
T1^%ZOSV	START+4
$$FIND1^DIC	ANQ+8
FILE^DICN	NFILE+3, ANQ+1, ANQ+12
^DIE	DIK+1, DIK+2, ANQ+14
IX1^DIK	DIK+3
$$GET1^DIQ	DT+10, NFILE+37, NFILE+41, ANQ+17, ANQ+36, SAVETIT+3, SAVETIT+5
$$SWSTAT^IBBAPI	IBQ+5
$$SUBSCRIB^ORDEA	ACLOG+14
ECMESND^PSOBPSU1	ANQ+30
RXACT^PSOBPSU2	NFILE+33, SAVETIT+3, SAVETIT+5
$$STATUS^PSOBPSUT	ANQ+35
$$SUBMIT^PSOBPSUT	ANQ+29
$$TECH2^PSODGDGP	ANQ+21
ICD^PSODIAG	IBQ+4
$$CS^PSOERXA0	NFILE+37
$$ERXIEN^PSOERXUT	NFILE+36, NFILE+41
$$GETNDC^PSONDCUT	ANQ+36
NOOR^PSONEW	NFILE+1
GACT^PSOPFSU0	IBQ+5
PARK^PSOPRKA	START+7
RMP^PSOPRKA	START+7
$$PSOET^PSOREJP3	ANQ+32
$$HDLG^PSOREJU1	ANQ+34
$$FIND^PSOREJUT	ANQ+33
ALERT^PSORENW0	ANQ+16
BBRX^PSORN52C	FINISHX+1
ORC^PSORN52C	DIK+4
SUS^PSORXL	ANQ+24
$$DS^PSSDSAPI	NFILE+4
PSOUL^PSSLOCK	EOJ+3
SAVNDC^PSSNDCUT	ANQ+36
$$FMADD^XLFDT	DT+3, DT+5
$$FMDIFF^XLFDT	DT+4
$$FMTE^XLFDT	ACLOG+10
^YSCLTST6	ANQ+17

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	Classic Fileman Calls, GET1^DIQ
^PS(52.49 - [#52.49]	GET1^DIQ
^PS(52.52 - [#52.52]	Classic Fileman Calls, FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	PS55+1
^PS(52.41 - [#52.41]	NFILE+40
^PS(52.52 - [#52.52]	ANQ, ANQ+2*
^PS(53 - [#53]	INIT+10, IBQ+2
^PS(55 - [#55]	PS55+1, PS55+2, PS55+3, PS55+5, PS55+6, PS55X
^PSRX - [#52]	START+8, NFILE+6, NFILE+7, NFILE+8, NFILE+9, NFILE+11, NFILE+13, NFILE+16, NFILE+20, NFILE+23 , NFILE+24, NFILE+25, NFILE+27, NFILE+28, NFILE+30, NFILE+32, NFILE+39, NFILE+42, NFILE+43, NFILE+44* , NFILE+47, NFILE+49, NFILE+50, NFILE+52, NFILE+53, NFILE+54, IBQ+3, ACLOG+3, ACLOG+5, ACLOG+7* , ACLOG+9, ACLOG+10, ACLOG+11, ACLOG+12, ACLOG+13, ACLOG+14, ACLOG+15, SAVETIT+1, SAVETIT+2, SAVETIT+4*
^PSRX("ACP"	START+8*
^PSRX("B"	IBQ+8, EOJ+2
^TMP("PSODAI"	NFILE+46, NFILE+48, NFILE+49, NFILE+51!
^TMP("PSODGI"	FINISHX+3!
^TMP("PSODGS"	FINISHX+3!
^TMP("PSODOSF"	NFILE+4, FINISHX+3!
^TMP("PSOSER"	FINISHX+3!
^TMP("PSOSERS"	FINISHX+3!
^TMP("PSOTDD"	FINISHX+3!
^XUSEC("PSDRPH"	INIT+4
^XUSEC("PSORPH"	NFILE+4, DIK+1, DIK+2, ANQ+21, ANQ+22

Name	Line Occurrences
ACLOG	NFILE+39
ANQ	ANQ, ANQ+8
DIK	START+3
DT	INIT+6
END	START+2
EOJ	END
FINISH	START+5
FINISHP	ANQ+22
FINISHX	ANQ+22, ANQ+24, FINISHP+1
INIT	START+2
NFILE	START+2
PS55	START+3
SAVETIT	IBQ+6

Name	Field # of Occurrence
^("IB"	START+8
^(0	NFILE+28, NFILE+50, PS55+2*
^(2	START+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INIT+9~, INIT+10, DT+12!, ACLOG+2, ANQ, ANQ+1, ANQ+2!, ANQ+8, ANQ+15!
%DT	INIT+1!
ACTION	ANQ+27~, ANQ+29, ANQ+30, ANQ+32, ANQ+34*
>> ANQDATA	ANQ, ANQ+2, ANQ+5, ANQ+6, ANQ+7, ANQ+8, ANQ+9, ANQ+10
ANQREM	ANQ+2!, ANQ+15!
>> BBFLG	FINISHX+1*
>> BINGCRT	FINISHX+1*
>> BINGRTE	FINISHX+1*
>> CLOZPAT	INIT+6, DT+2
CNT	ACLOG+1~, ACLOG+3, ACLOG+4, ACLOG+5, ACLOG+7, ACLOG+9, ACLOG+10, ACLOG+11, ACLOG+12, ACLOG+13 , ACLOG+14*, ACLOG+15
>> COMM	NFILE+32*, NFILE+33
D	NFILE+23, NFILE+24!, NFILE+28, NFILE+45!
DA	DIK+1, DIK+2, DIK+3!, DIK+4, ANQ+12!, ANQ+13, ANQ+14!, ANQ+24!, EOJ+2!
DAI	NFILE+48*, NFILE+49, NFILE+51!
DD	NFILE+3!, ANQ+1!, ANQ+11!, ANQ+12!
>> DEA	INIT+3*
>> DEA("CS"	INIT+7
DIC	NFILE+3!, ANQ+1!, ANQ+11*, ANQ+12!
DIC(0	NFILE+3, ANQ+1, ANQ+11*
DIE	DIK+1!, DIK+2!, ANQ+13*, ANQ+14!
DIK	DIK+3!*
DLAYGO	NFILE+3!, ANQ+1!, ANQ+11*, ANQ+12!
DO	NFILE+3!, ANQ+1!, ANQ+11!, ANQ+12!
DR	DIK+1!, DIK+2!, ANQ+12!, ANQ+13*, ANQ+14!
DT	NFILE+24, NFILE+30, ANQ+24
DTM	ANQ+8~*, ANQ+11
DTTM	ACLOG+1~, ACLOG+2*, ACLOG+5, ACLOG+7, ACLOG+9, ACLOG+10, ACLOG+11, ACLOG+12, ACLOG+13, ACLOG+14
DUZ	INIT+4, NFILE+2, NFILE+4, ACLOG+5, ACLOG+7, ACLOG+9, ACLOG+10, ACLOG+11, ACLOG+12, ACLOG+13 , ACLOG+14, DIK+1, DIK+2, ANQ+21, ANQ+22
ERXIEN	NFILE+36~*, NFILE+37
EXP	DT+3~, DT+4, DT+5, DT+6*, DT+7
HLDSIG	NFILE+45!
>> I	NFILE+6*, NFILE+7, NFILE+8
MNTRX	SAVETIT~, SAVETIT+1, SAVETIT+2, SAVETIT+3, SAVETIT+4, SAVETIT+5
OCNT	ACLOG+1~, ACLOG+4*, ACLOG+15
OLENT	EOJ+2!
>> OR0	DT+12, NFILE, NFILE+2, NFILE+34, NFILE+39, NFILE+40, ACLOG+14
>> ORD	NFILE+36
ORDIEN	NFILE+40~*, NFILE+41
OTHDOS	EOJ+2!
PS52	ANQ+13~*
PSCSERX	NFILE+36~, NFILE+37, NFILE+39
PSO1PH	ANQ+8~, ANQ+9*
PSO2PH	ANQ+8~, ANQ+9*
PSOANSQ	IBQ+7!
PSOANSQ("CV"	IBQ+1
PSOANSQ("HNC"	IBQ+1
PSOANSQ("MST"	IBQ+1
PSOANSQ("PGW"	IBQ+1
PSOANSQ("RAD"	IBQ+1
PSOANSQ("SC"	IBQ+1
PSOANSQ("SHAD"	IBQ+1
PSOANSQ("VEH"	IBQ+1
PSOANSQD	IBQ+7!
>> PSOCOU	DIK+1
>> PSOCOUU	DIK+1
>> PSOCSP("# OF	REFILLS" , ACLOG+13
>> PSOCSP("DAYS	SUPPLY" , ACLOG+11
>> PSOCSP("DOSE	ORDERED" , ACLOG+8, ACLOG+9
>> PSOCSP("DOSE"	ACLOG+6, ACLOG+7
>> PSOCSP("ISSUE	DATE" , ACLOG+10
>> PSOCSP("NAME"	ACLOG+5
>> PSOCSP("QTY"	ACLOG+12
>> PSODFN	PS55+1, PS55+2, PS55+3, PS55+5, PS55+6, PS55X, ANQ+21
>> PSODRUG("DEA"	INIT+3
>> PSODRUG("IEN"	ANQ+17
>> PSODRUG("NAME"	ACLOG+5
>> PSODRUG("OI"	NFILE+2
PSOERX	ANQ+27~, ANQ+28*, ANQ+29, ANQ+30, ANQ+32, ANQ+33, ANQ+34, ANQ+35, ANQ+36
PSOFINFL	NFILE+45!
>> PSOID	INIT+1
PSOINSFL	NFILE+30, NFILE+45!
>> PSOMAILX	DIK+2
PSON52	NFILE+5*, EOJ+2!
PSON52(	NFILE+4, NFILE+5, NFILE+13
PSON52("QFLG"	START+2, INIT+5*
>> PSONEW("# OF	REFILLS" , ACLOG+13
>> PSONEW("CLERK	CODE" , NFILE+2*, NFILE+33
>> PSONEW("DAYS	SUPPLY" , ACLOG+11
>> PSONEW("DFLG"	START+2, NFILE, NFILE+1
>> PSONEW("DOSE	ORDERED" , ACLOG+8
>> PSONEW("DOSE"	ACLOG+6
>> PSONEW("ENT"	EOJ+2!
>> PSONEW("INS"	EOJ+2!
>> PSONEW("ISSUE	DATE" , ACLOG+10
>> PSONEW("PATIE	NT STATUS" , IBQ+2
>> PSONEW("QTY"	ACLOG+12
>> PSONEW("REMARKS"	NFILE+2*
>> PSONEW("STOP	DATE" , PS55+6
>> PSOPAR	ANQ+24
PSOPRC	EOJ+2!
PSOREASN	ANQ+8~, ANQ+10*
PSOREMRK	ANQ+8~, ANQ+10*
>> PSORX("MAIL/WINDOW"	FINISHX+1
>> PSORX("PATIEN	T STATUS" , INIT+9
>> PSORX("PHARM"	DT+15!
>> PSORX("PSOL"	FINISHP+1, FINISHP+2, FINISHP+3, FINISHP+4*
>> PSORX("VERIFY"	DT+13
>> PSORXED("ENT"	EOJ+2!
>> PSORXED("INS"	EOJ+2!
PSOSCFLD	IBQ+1~*, IBQ+2, IBQ+3!
>> PSOSCP	IBQ+1, IBQ+2
>> PSOSIGFL	NFILE+2, NFILE+39
>> PSOSITE	ANQ+36
PSOTFIN	ANQ+20~, ANQ+21*, ANQ+22
>> PSOTITRF	NFILE+31
PSOTITRX	DT+9, DT+10, IBQ+6, IBQ+7!
PSOUSER	ANQ+8~, ANQ+9*
PSOX	EN~, ANQ+21
PSOX("# OF RE	FILLS" , INIT+5, DT+2, DT+11
PSOX("55 IEN"	, PS55+4*
PSOX("CHCS NU	MBER" , NFILE+52
PSOX("CONJUNCTION"	NFILE+7
PSOX("COPIES"	DT+14*
PSOX("CS"	INIT+2, INIT+3, INIT+4, INIT+7, DT+4, DT+5, NFILE+41, NFILE+43
PSOX("DAYS SU	PPLY" , INIT+5, INIT+7, DT+3, DT+11
PSOX("DISPENS	ED DATE" , DT+12*
PSOX("DOSE OR	DERED" , NFILE+6
PSOX("DOSE"	NFILE+6
PSOX("DURATION"	NFILE+7
PSOX("ENT"	NFILE+6, NFILE+9
PSOX("EXTERNA	L SYSTEM" , NFILE+53
PSOX("FILL DA	TE" , DT+2, DT+3, DT+6, DT+11, DT+12, ANQ+24
PSOX("IND"	NFILE+11
PSOX("INDF"	NFILE+11
PSOX("INDO"	NFILE+11
PSOX("INS"	EOJ+2!
PSOX("IRXN"	START+7, START+8, NFILE+3*, NFILE+4, NFILE+5, NFILE+6, NFILE+7, NFILE+8, NFILE+9, NFILE+11 , NFILE+13, NFILE+16, NFILE+20, NFILE+23, NFILE+24, NFILE+25, NFILE+27, NFILE+28, NFILE+30, NFILE+32 , NFILE+33, NFILE+39, NFILE+42, NFILE+43, NFILE+44, NFILE+47, NFILE+49, NFILE+50, NFILE+52, NFILE+53 , NFILE+54, IBQ+3, IBQ+5, IBQ+6, IBQ+8, ACLOG+3, ACLOG+5, ACLOG+7, ACLOG+9, ACLOG+10 , ACLOG+11, ACLOG+12, ACLOG+13, ACLOG+14, ACLOG+15, PS55+5, PS55+6, DIK+1, DIK+2, DIK+3 , DIK+4, ANQ+2, ANQ+21, ANQ+24, ANQ+28, FINISHP+1, FINISHP+3, FINISHP+4, FINISHP+5, EOJ+2 , EOJ+3
PSOX("ISSUE D	ATE" , INIT+1*, INIT+5, DT+4, DT+5
PSOX("LOGIN D	ATE" , DT+12*
PSOX("MAIL/WINDOW"	START+7, ANQ+29
PSOX("NEWCOPAY"	NFILE+54, IBQ+7!
PSOX("NEXT PO	SSIBLE REFILL" , DT+11*
PSOX("NOPSDRPH"	INIT+2!, INIT+4*, DT+13, NFILE+4, ANQ+21, ANQ+22
PSOX("NOUN"	NFILE+6
PSOX("ODOSE"	NFILE+8
PSOX("PHARMACIST"	DT+15*
PSOX("PROVIDER"	ANQ+6, ANQ+7
PSOX("ROUTE"	NFILE+7
PSOX("RX #"	NFILE+3
PSOX("SCHEDULE"	NFILE+7
PSOX("SIG"	NFILE+22, NFILE+23
PSOX("SINS"	NFILE+25
PSOX("STATUS"	DT+13, NFILE+4
PSOX("STOP DA	TE" , DT, DT+2, DT+7, DT+10*
PSOX("TYPE OF	RX" , DT+12*
PSOX("UNITS"	NFILE+6
PSOX("VERB"	NFILE+7
PSOX1	NFILE+5, NFILE+12!, NFILE+13, NFILE+45!, PS55+3, PS55+4, PS55+5, PS55X+1!, FINISHP+2, FINISHX+2!
PSOX2	FINISHP+2*, FINISHP+3, FINISHP+4, FINISHX+2!
PSOY	NFILE+5!*, NFILE+12!
QTYTMP	NFILE+15~, NFILE+16*, NFILE+17, NFILE+18, NFILE+20
RTE	EOJ+2!
>> RXFL(	ANQ+24, FINISHP+1, FINISHP+5*
SCH	EOJ+2!
SIG	NFILE+29!
SIG(	NFILE+28
>> SIGOK	NFILE+26
TITRX	SAVETIT~, SAVETIT+1, SAVETIT+2, SAVETIT+3, SAVETIT+4, SAVETIT+5
TP	NFILE+23*, NFILE+24!
U	NFILE+16, NFILE+20
X	INIT+1!, DT!, DT+11!, DT+12!, NFILE+3!, ANQ+1, ANQ+2!, ANQ+11*, ANQ+15!
>> X1	INIT+5, DT+11
>> X2	INIT+5, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, DT+11
>> XRT0	START+4
>> XRTL	START+1
>> XRTN	START+4*
XX	ACLOG+1~, ACLOG+3, ACLOG+6, ACLOG+7, ACLOG+8*, ACLOG+9
Y	NFILE+3!, ANQ+2!, ANQ+13, ANQ+15!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSON52

Information

Source Information

Call Graph

Call Graph Total: 31

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items