Routine: PSON52

Information

PSON52 ;BIR/DSD - files new entries in prescription file ;06-Dec-2013 08:18;DU

Source Information

Source file <PSON52.m>

Call Graph

Call Graph Total: 21

Package	Total	Call Graph
Outpatient Pharmacy	10	ECMESND^PSOBPSU1 ($$STATUS,$$SUBMIT)^PSOBPSUT TECH^PSODGDGI ICD^PSODIAG $$GETNDC^PSONDCUT NOOR^PSONEW $$HDLG^PSOREJU1 $$FIND^PSOREJUT (BBRX,ORC)^PSORN52C SUS^PSORXL
VA Fileman	5	(C,NOW)^%DTC FILE^DICN ^DIE (IX,IX1)^DIK $$GET1^DIQ
IHS Changes To Pharmacy	3	($$GETNDC,$$RXNORM)^APSPFNC1 $$ISSCH^APSPFNC2 $$DEAVAUS^APSPFUNC
Pharmacy Data Management	2	PSOUL^PSSLOCK SAVNDC^PSSNDCUT
Kernel	1	(T0,T1)^%ZOSV

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSONEW PSOORNE1 PSOORNEW PSORN52
IHS Changes To Pharmacy	2	APSPFNC2 APSQFAS
IHS Omnicell Pyxis Interface	1	BOPUVER
Patient Chart	1	BPCRXSET

Entry Points

Name	Comments	DBIA/ICR reference
NFILE
FINISH	;
END
PS55	;
DIK	;
EOJ	;
DD	;;PSOX("RX #");;0;;1
ANQ
FINISHX	;call to build Rx array for bingo board
START	;
INIT	;
PS55X
FINISHP	;
IBQ	;I $G(PSOBILL)=2 S ^PSRX(PSOX("IRXN"),"IBQ")=$S($G(PSOX("NEWCOPAY")):0,1:1)
DT	;IHS/MSC/PLS - 02/13/2012
INITPRV	;EP -
EN(PSOX)	;Entry Point
INITX

External References

Name	Field # of Occurrence
C^%DTC	DT+8, DT+9
NOW^%DTC	DT+10, ANQ
T0^%ZOSV	START+1
T1^%ZOSV	START+3
$$GETNDC^APSPFNC1	DT+17
$$RXNORM^APSPFNC1	DT+18
$$ISSCH^APSPFNC2	INITPRV+9
$$DEAVAUS^APSPFUNC	INITPRV+9
FILE^DICN	NFILE+3, ANQ+1, ANQ+6
^DIE	DIK+1
IX^DIK	ANQ+7
IX1^DIK	DIK+2
$$GET1^DIQ	DT+6, INITPRV+3, INITPRV+4, INITPRV+5, INITPRV+6, INITPRV+7, INITPRV+8, ANQ+19
ECMESND^PSOBPSU1	ANQ+15
$$STATUS^PSOBPSUT	ANQ+18
$$SUBMIT^PSOBPSUT	ANQ+14
TECH^PSODGDGI	NFILE+3
ICD^PSODIAG	IBQ+5
$$GETNDC^PSONDCUT	ANQ+19
NOOR^PSONEW	NFILE+1
$$HDLG^PSOREJU1	ANQ+17
$$FIND^PSOREJUT	ANQ+16
BBRX^PSORN52C	FINISHX+1
ORC^PSORN52C	DIK+3
SUS^PSORXL	ANQ+9
PSOUL^PSSLOCK	EOJ+3
SAVNDC^PSSNDCUT	ANQ+19

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	Classic Fileman Calls, GET1^DIQ
^PS(52.4 - [#52.4]	Classic Fileman Calls
^PS(52.52 - [#52.52]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	PS55+1
^PS(52.4 - [#52.4]	ANQ+6*
^PS(52.52 - [#52.52]	ANQ, ANQ+2*
^PS(53 - [#53]	IBQ+3
^PS(55 - [#55]	PS55+1, PS55+2, PS55+3, PS55+5, PS55+6, PS55X
^PSRX - [#52]	START+5, NFILE+5, NFILE+6, NFILE+7, NFILE+8, NFILE+10, NFILE+12, NFILE+13, NFILE+14, NFILE+16* , NFILE+17, NFILE+19, NFILE+20, NFILE+23, NFILE+25, NFILE+26, NFILE+28, NFILE+29, NFILE+30, IBQ+4
^PSRX("ACP"	START+5*
^PSRX("B"	IBQ+8, EOJ+2
^TMP("PSODAI"	NFILE+22, NFILE+24, NFILE+25, NFILE+27!
^XUSEC("PSORPH"	DIK+1

Name	Line Occurrences
ANQ	ANQ
DIK	START+2
DT	INIT+7
END	START+2
EOJ	END
FINISH	START+4
FINISHP	ANQ+3
FINISHX	ANQ+4, ANQ+9, FINISHP+1
INIT	START+2
INITPRV	DT+19
NFILE	START+2
PS55	START+2

Name	Field # of Occurrence
^("IB"	START+5
^(0	NFILE+17, NFILE+26, PS55+2*
^(2	START+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DT+10!, ANQ, ANQ+1, ANQ+2!
%DT	INIT+1!
ACTION	ANQ+12~, ANQ+14, ANQ+15, ANQ+17
ANQDATA	ANQ, ANQ+2!
ANQREM	ANQ+2!
>> APSPPRIO	DT+14
>> BBFLG	FINISHX+1*
>> BINGCRT	FINISHX+1*
>> BINGRTE	FINISHX+1*
>> CLOZPAT	INIT+7
D	NFILE+12, NFILE+13!, NFILE+17, NFILE+21!
DA	DIK+1, DIK+2!, DIK+3, ANQ+7!, ANQ+9*!, EOJ+2!
DAI	NFILE+24*, NFILE+25, NFILE+27!
DD	NFILE+3!, ANQ+1!, ANQ+5!, ANQ+6!
>> DEA	INIT+3*
>> DEA("CS"	INIT+9
>> DGI	NFILE+3
DIADD	ANQ+5!
DIC	NFILE+3!, ANQ+1!, ANQ+5!*, ANQ+6!
DIC(0	NFILE+3, ANQ+1, ANQ+5*
DIE	DIK+1*!
DIK	DIK+2!, ANQ+7!
DINUM	ANQ+5!*, ANQ+6!
DLAYGO	NFILE+3!, ANQ+1!, ANQ+5!*, ANQ+6!
DO	NFILE+3!, ANQ+1!, ANQ+5!, ANQ+6!
DR	DIK+1*!
DT	NFILE+13, NFILE+19, ANQ+9
DUZ	NFILE+2, DIK+1, ANQ+6
EXTEXP	DT+5~, DT+6*, DT+7
HLDSIG	NFILE+21!
>> I	NFILE+5*, NFILE+6, NFILE+7
OLENT	EOJ+2!
>> OR0	DT+10, NFILE, NFILE+2, NFILE+20
OTHDOS	EOJ+2!
PRV	INITPRV+1~, INITPRV+2*, INITPRV+3, INITPRV+4, INITPRV+5, INITPRV+6, INITPRV+7, INITPRV+8, INITPRV+9
PSOANSQ	IBQ+7!
PSOANSQ("CV"	IBQ+2
PSOANSQ("HNC"	IBQ+2
PSOANSQ("MST"	IBQ+2
PSOANSQ("PGW"	IBQ+2
PSOANSQ("RAD"	IBQ+2
PSOANSQ("SC"	IBQ+2
PSOANSQ("SHAD"	IBQ+2
PSOANSQ("VEH"	IBQ+2
PSOANSQD	IBQ+7!
>> PSOCOU	DIK+1
>> PSOCOUU	DIK+1
>> PSODFN	PS55+1, PS55+2, PS55+3, PS55+5, PS55+6, PS55X, ANQ+6
>> PSODRUG("DEA"	INIT+3
>> PSODRUG("IEN"	DT+6, DT+17, INITPRV+9
>> PSODRUG("OI"	NFILE+2
PSOERX	ANQ+12~, ANQ+13*, ANQ+14, ANQ+15, ANQ+16, ANQ+17, ANQ+18, ANQ+19
PSOFINFL	NFILE+21!
>> PSOID	INIT+1
PSOINSFL	NFILE+19, NFILE+21!
PSON52	NFILE+4*, EOJ+2!
PSON52(	NFILE+4*, NFILE+10
PSON52("QFLG"	START+2, INIT+4*
>> PSONEW("CLERK	CODE" , NFILE+2*
>> PSONEW("DFLG"	START+2, NFILE, NFILE+1
>> PSONEW("ENT"	EOJ+2!
>> PSONEW("INS"	EOJ+2!
>> PSONEW("PATIE	NT STATUS" , IBQ+3
>> PSONEW("REMARKS"	NFILE+2*
>> PSONEW("STOP	DATE" , PS55+6
>> PSOPAR	ANQ+9
PSOPRC	EOJ+2!
>> PSORX("MAIL/WINDOW"	FINISHX+1
>> PSORX("PHARM"	DT+13!
>> PSORX("PSOL"	FINISHP+1, FINISHP+2, FINISHP+3, FINISHP+4*
>> PSORX("VERIFY"	DT+11, ANQ+4
>> PSORXED("ENT"	EOJ+2!
>> PSORXED("INS"	EOJ+2!
PSOSCFLD	IBQ+2~*, IBQ+3, IBQ+4!
>> PSOSCP	IBQ+1*, IBQ+2, IBQ+3
>> PSOSIGFL	NFILE+2
>> PSOSITE	ANQ+19
PSOX	EN~
PSOX("# OF RE	FILLS" , INIT+4, DT+9
PSOX("55 IEN"	, PS55+4*
PSOX("APSPPRIO"	DT+14*
PSOX("CHCS NU	MBER" , NFILE+28
PSOX("CONJUNCTION"	NFILE+6
PSOX("COPIES"	DT+12*
PSOX("CS"	INIT+2, INIT+3, INIT+9, DT+3
PSOX("DAYS SU	PPLY" , INIT+4, INIT+9, DT+9
PSOX("DEA_VA_USPHS"	INITPRV+9*
PSOX("DISPENS	ED DATE" , DT+10*
PSOX("DOSE OR	DERED" , NFILE+5
PSOX("DOSE"	NFILE+5
PSOX("DURATION"	NFILE+6
PSOX("ENT"	NFILE+5, NFILE+8
PSOX("EXTERNA	L SYSTEM" , NFILE+29
PSOX("FILL DA	TE" , DT+9, DT+10, ANQ+9, ANQ+15
PSOX("INS"	EOJ+2!
PSOX("IRXN"	START+5, NFILE+3*, NFILE+4, NFILE+5, NFILE+6, NFILE+7, NFILE+8, NFILE+10, NFILE+12, NFILE+13 , NFILE+14, NFILE+16, NFILE+17, NFILE+19, NFILE+20, NFILE+23, NFILE+25, NFILE+26, NFILE+28, NFILE+29 , NFILE+30, IBQ+4, IBQ+8, PS55+5, PS55+6, DIK+1, DIK+2, DIK+3, ANQ+2, ANQ+5 , ANQ+6, ANQ+7, ANQ+9, ANQ+13, FINISHP+1, FINISHP+3, FINISHP+4, FINISHP+5, EOJ+2, EOJ+3
PSOX("ISSUE D	ATE" , INIT+1*, INIT+4
PSOX("LOGIN D	ATE" , DT+10*, ANQ+6
PSOX("NDC"	DT+17*, DT+18
PSOX("NEWCOPAY"	NFILE+30, IBQ+7!
PSOX("NEXT PO	SSIBLE REFILL" , DT+9*
PSOX("NOUN"	NFILE+5
PSOX("ODOSE"	NFILE+7
PSOX("PHARMACIST"	DT+13*
PSOX("PICKUP"	DT+17
PSOX("PROVIDER"	INITPRV+2
PSOX("PRV CIT	Y" , INITPRV+6*
PSOX("PRV STA	TE" , INITPRV+7*
PSOX("PRV STR	ADD1" , INITPRV+3, ADD2" , INITPRV+4, ADD3" , INITPRV+5*
PSOX("PRV ZIP	" , INITPRV+8*
PSOX("ROUTE"	NFILE+6
PSOX("RX #"	NFILE+3
PSOX("RXNORM"	DT+18*
PSOX("SCHEDULE"	NFILE+6
PSOX("SIG"	NFILE+11, NFILE+12
PSOX("SINS"	NFILE+14
PSOX("STATUS"	DT+11*, ANQ+3
PSOX("STOP DA	TE" , DT+8*, ANQ+6
PSOX("TYPE OF	RX" , DT+10*
PSOX("UNITS"	NFILE+5
PSOX("VERB"	NFILE+6
PSOX1	NFILE+4, NFILE+9!, NFILE+10, NFILE+21!, PS55+3, PS55+4, PS55+5, PS55X+1!, FINISHP+2, FINISHX+2!
PSOX2	FINISHP+2*, FINISHP+3, FINISHP+4, FINISHX+2!
PSOY	NFILE+4!*, NFILE+9!
RTE	EOJ+2!
>> RXFL(	ANQ+9, FINISHP+1, FINISHP+5*
SCH	EOJ+2!
SIG	NFILE+18!
SIG(	NFILE+17
>> SIGOK	NFILE+15
TP	NFILE+12*, NFILE+13!
U	INIT+9
X	INIT+1!, DT+8!, DT+9!, DT+10!, NFILE+3!, ANQ+1, ANQ+2!, ANQ+5!*
>> X1	INIT+4, DT+9
>> X2	INIT+4, INIT+7, INIT+9, DT+3, DT+7, DT+9
>> XRT0	START+3
>> XRTL	START+1
>> XRTN	START+3*
Y	NFILE+3!, ANQ+2!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSON52

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items