Routine: APSQCK1

Package	Total	Call Graph
VA Fileman	7	HLP^DDSUTL $$GET^DDSVALF MSG^DIALOG (,$$FIND1,FIND)^DIC ^DIE ^DIK ^DIR
Kernel	4	(,HOME)^%ZIS ^%ZISC ENDR^%ZISS ^%ZTLOAD
IHS VA Utilities	3	VIEWR^XBLM EN^XBNEW EN^XBVK
MailMan	3	DEST^XMA21 ^XMB ^XMD

Package	Total	Caller Graph
IHS Changes To Pharmacy	1	APSQCK

Entry Points

Name	Comments	DBIA/ICR reference
VAL44	;EP VALIDATION OF SCREENMAN APSQ NF PHARMACIST ...
VAL33	;EP VALIDATION OF SCREENMAN APSQ NF PHARMACIST ...
NFRXEND	;FINISH
HDR
STOP
DIC
PRINT	;PRINT OR BROWSE A NON FORMULARY REQUEST
BULL(GOTIT,BULLETIN,XMY)	;SEND A BULLETIN GOTIT IS THE IEN OF APSQNF( AND BULLETIN IS NAME OF BULLETIN
PRT1	;EP
HDR2
PASS(PROV)	;EP CHECK IF THIS IS A VALID NEW PERSON TO LOOK AT THIS ENTRY
BROWSE	; BROWSE IT
RX	;EP COMES FROM PSODRG TO CHECK IF NON FORMULARY REQUEST FOR NF DRUG
1	;DELETE THE DRUG
PRT	;PRINT IT
3	;DO BOTH 1 AND 2
2	;DO AN INTERVENTION
4	;DO NOTHING
RXSETK	;EP KILL PRESCRIPTION REFERENCE IF RX DELETED
VAL3	;EP COME HERE FROM SCREENMAN TO SEE IF WANT TO DELETE RPH COMMENTS
VAL2	;EP COME HERE FROM SCREENMAN TO SEE IF WANT TO DELETE FORM
VAL1	;EP CALLED FROM SCREENMAN UPON VALIDATING THE FORM APSQ NF PHARMACIST
VAL4	;EP COME HERE FROM SCREENMAN TO SEE IF WANT TO DELETE RPH COMMENTS
CK	;EP
BULL1
XMB	;SEND TO WHO EVER
RXSET1
WRITE	;
ASK	;ASK WHAT IS TO BE DONE
BULL2	;ADD ANY EXTRA PEOPLE TO BULLETIN
LOOK	;EP LOOK UP AN ENTRY AND DO SOMETHING
HDR1
EXIT	;CLEAN UP TIME
RXSET	;EP SET THE REFERENCE RX FIELD

External References

Name	Field # of Occurrence
^%ZIS	PRT+1
HOME^%ZIS	PRT+2
^%ZISC	PRT1+8
ENDR^%ZISS	ASK+2
^%ZTLOAD	PRT+2
HLP^DDSUTL	VAL1+5, VAL1+13, VAL33+6, VAL44+6
$$GET^DDSVALF	VAL1+2, VAL2+1, VAL3+1, VAL33+1, VAL4+1, VAL44+1
MSG^DIALOG	CK+14
^DIC	LOOK+6, DIC+4
$$FIND1^DIC	DIC+8
FIND^DIC	BULL+7
^DIE	VAL3+3, VAL4+3, RXSET1+7, RXSETK+4
^DIK	VAL2+2
^DIR	PRINT+6, ASK+13
VIEWR^XBLM	BROWSE+4
EN^XBNEW	WRITE+3
EN^XBVK	CK+16, CK+26, NFRXEND+4, STOP
DEST^XMA21	DIC+11
^XMB	BULL1+2
^XMD	XMB+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"YOU MAY LOOK UP ENTRIES BY CONTROL #, PATIENT, DRUG, OR DATE" Line Location: LOOK+2
Function Call: WRITE	Prompt: !!,"BULLETIN BEING SENT",!! Line Location: BULL+4
Function Call: WRITE	Prompt: !,"ADDITIONAL ENTRIES MAY BE ADDED TO THE BULLETIN" Line Location: BULL2+1
Function Call: WRITE	Prompt: !,"REMEMBER ENTRIES HAVE BEEN ADDED FOR YOURSELF AND THE BULLETIN MAILGROUPS" Line Location: BULL2+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+0
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+0
Function Call: WRITE	Prompt: ?(IOM-LENG/2),TOP,?(IOM-12),"PAGE: ",$J(PAGE,3) Line Location: HDR2+2
Function Call: WRITE	Prompt: !,"CHECKING NON FORMULARY INFORMATION...",! Line Location: RX+3
Function Call: WRITE	Prompt: !,"NO NON FORMULARY REQUESTS EXISTS FOR THIS DRUG" Line Location: RX+9
Function Call: WRITE	Prompt: !,"NON FORMULARY REQUEST "_$P(^APSQNF(NFRXIEN,0),U)_" EXISTS" Line Location: RX+11
Function Call: WRITE	Prompt: !,"RX# "_+$G(^PSRX(NFRXREF,0))_" HAS BEEN FILLED PREVIOUSLY USING THIS NON FORMULARY REQUEST" Line Location: RX+14
Function Call: WRITE	Prompt: !,"THIS NON FORMULARY REQUEST STATUS IS "_$S(NFRXAPP=1:"APPROVED",NFRXAPP=0:"NOT APPROVED",1:"NOT ACTED UPON YET") Line Location: RX+15
Function Call: WRITE	Prompt: ! Line Location: NFRXEND+1
Function Call: WRITE	Prompt: IORVON Condition for execution: I="MESS" Line Location: ASK+4
Function Call: WRITE	Prompt: !,*7,AZO(I) Line Location: ASK+4
Function Call: WRITE	Prompt: IORVOFF Condition for execution: I="MESS" Line Location: ASK+4
Routine Call	%ZIS Line Location: PRT+2
Routine Call	DIE Line Location: VAL3+3 VAL4+3 RXSET1+7 RXSETK+4
Routine Call	DIALOG Line Location: CK+14
Routine Call	%ZIS Line Location: PRT+1
Routine Call	DIC Line Location: DIC+8
Routine Call	DIC Line Location: LOOK+6 DIC+4
Routine Call	DIC Line Location: BULL+7
Routine Call	DIR Line Location: PRINT+6 ASK+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(20 - [#20]	GET^DDSVALF
^VA(200 - [#200]	Classic Fileman Calls
^XMB(3.6 - [#3.6]	FIND1^DIC
^DIC(7 - [#7]	GET^DDSVALF
^DIC(8 - [#8]	GET^DDSVALF
^APSQNF - [#9009035.1]	Classic Fileman Calls, FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSQNF - [#9009035.1]	CK+22, BROWSE+2, HDR2, RX+11, RX+12, RXSET1+7
^APSQNF("M"	CK+13, CK+20, RX+8, RX+10, RXSET1+4
^APSQNF("RX"	RXSETK+3
^DIC(4 - [#4]	XMB+2
^DPT - [#2]	BROWSE+2, HDR2
^PSDRUG - [#50]	RX+5, RXSET1+1
^PSRX - [#52]	RX+14, RXSET1
^TMP("DDS"	CK+4
^UTILITY("DIQ1"	WRITE+1!, WRITE+5

Label References

Name	Line Occurrences
1	3+1
2	3+1
@(	LOOK+11, PRT1+3, ASK+17
ASK	NFRXEND+2
BROWSE	PRINT+10
BULL1	BULL+10
BULL2	BULL+9
DIC	DIC+5
EXIT	LOOK+10, LOOK+12, PRT+1
HDR	PRT1+6
NFRXEND	RX+9, RX+11
PRT	PRINT+9
RXSET1	RXSET+4
STOP	RXSET+4, RXSETK+5
WRITE	LOOK+11

Naked Globals

Name	Field # of Occurrence
^(	CK+20, RXSET1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	PRT+1*
ADD	EXIT+5!
>> APSQ("CLOSED"	CK+22*, CK+23
>> APSQ("DRUG"	CK+1!, CK+9*, CK+10, CK+13, CK+20
>> APSQ("DT"	CK+1!, CK+11, CK+12, CK+13, CK+20
>> APSQ("PAT"	CK+1!, CK+6*, CK+7, CK+13, CK+20
>> APSQ("QUIT"	CK+19, CK+20, CK+24
>> APSQ("RECIEN"	CK+20*, CK+21, CK+22
>> APSQC	CK+4*
>> APSQC(1	CK+11
>> APSQC(2	CK+6
>> ARRAY	PRT1+4*, PRT1+5
>> ARRAY(	WRITE+11, WRITE+12, WRITE+14*, PRT1+4, PRT1+5
>> AZO(	ASK+4
BULLETIN	BULL~, BULL1+1, DIC+8
CHECK	VAL1+2*, VAL1+3, VAL1+9, VAL1+18!
CNT	EXIT+5!
DA	LOOK+11, WRITE+7, WRITE+8, WRITE+10, WRITE+13, WRITE+14, EXIT+4!, VAL2+4!, VAL3+4!, VAL4+4! , BROWSE+2, HDR2, RXSET1+7, RXSETK+4
>> DD	WRITE+5*
>> DD(	WRITE+7, WRITE+8, WRITE+10, WRITE+13, WRITE+14
>> DD(""	WRITE+6
>> DDS	CK+4
>> DDSBR	VAL1+15, VAL33+8, VAL44+8*
DDSCHANG	EXIT+4!
>> DDSDA	CK+4
DDSERROR	CK+13, CK+16, CK+24, VAL1+6!, VAL1+16, VAL33+9, VAL44+9*
DDSFILE	CK+4, EXIT+4!
DDSPARM	EXIT+4!
DDSSAVE	EXIT+4!
>> DDSY	CK+9
DEL	EXIT+5!
>> DGI	1+1, 2+1
DIC	LOOK+3!, LOOK+4, DIC+1, DIC+6!
DIC("A"	LOOK+5, DIC+3
DIC("S"	DIC+2*
DIC(0	LOOK+4, DIC
DIE	VAL3+3, VAL3+4!, VAL4+3, VAL4+4!, RXSET1+7!, RXSETK+4!
DIK	VAL2+2*, VAL2+4!
>> DIQ(0	WRITE+2*
DIR	PRINT+1!, PRINT+7!, ASK+16!
DIR("A"	PRINT+3, ASK+6, ASK+7, ASK+8, ASK+9, ASK+10
DIR("B"	PRINT+4, ASK+11
DIR(0	PRINT+2, ASK+12
DIROUT	PRINT+8, ASK+15, ASK+16!
DIRUT	PRINT+8, ASK+15, ASK+16!
DISP	EXIT+3!
DR	WRITE+2, EXIT+4!, VAL3+3, VAL4+3, RXSET1+7, RXSETK+4*
DTIME	HDR
DTOUT	LOOK+10, PRINT+8, ASK+16!
DUOUT	LOOK+10, PRINT+8, ASK+16!
DUZ	XMB+3, EXIT+1*
DUZ(2	XMB+2
DUZSAVE	XMB+3, EXIT+1!
>> END	PRT1+1, PRT1+4, HDR
EXIT	EXIT+2!
>> FIELD	WRITE+8*, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14
>> FILE	WRITE+6*, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+13, WRITE+14
FROM	EXIT+5!
GET	EXIT+5!
GET("DILIST"	BULL+8
GOTIT	BULL~, BULL+6*, BULL+7
HELP	VAL1+5, VAL1+13, VAL1+14!, VAL1+18!, VAL33+6, VAL33+7!, VAL44+6, VAL44+7!
HELP(1	VAL1+4, VAL1+10, VAL33+3, VAL44+3
HELP(2	VAL1+11, VAL33+4, VAL44+4*
HELP(3	VAL1+12, VAL33+5, VAL44+5*
HIT	EXIT+5!
I	WRITE+8, EXIT+5!, ASK+4
IEN	EXIT+5!
IO	PRT1+2
IO("Q"	PRT+2!
IOF	HDR1
IOM	HDR2+2
>> IORVOFF	ASK+4
>> IORVON	ASK+4
IOSL	PRT1+6
IOST	PRT1+3, HDR
>> J	WRITE+13*, WRITE+14
>> JOB	CK+2*, CK+4
KILL	VAL2+1, VAL2+2, VAL3+1, VAL3+2, VAL3+6!, VAL33+1, VAL33+2, VAL33+11!, VAL4+1, VAL4+2 , VAL4+6!, VAL44+1, VAL44+2, VAL44+11!, RXSETK+3, RXSETK+4
>> LAST	WRITE+13*, WRITE+14
>> LENG	HDR2+1*, HDR2+2
>> LOOK	LOOK+11
MORE	EXIT+5!
>> MSG("DIHELP"	CK+14*
>> NAME	WRITE+9, WRITE+10, WRITE+11
>> NFRXAPP	RX+13*, RX+15
>> NFRXDATE	RX+8, RX+9, RX+10, RXSET1+4, RXSET1+5
>> NFRXDRUG	RX+6, RX+8, RX+10, RXSET1, RXSET1+1, RXSET1+2*, RXSET1+4
>> NFRXIEN	RX+10*, RX+11, RX+12, RXSET1, RXSET1+7, RXSETK+3
>> NFRXNON	RXSET1+4*, RXSET1+6, RXSET1+7
>> NFRXPT	RX+7, RX+8, RX+10, RXSET1+3, RXSET1+4
>> NFRXREF	RX+13*, RX+14
>> NFRXSEC	RX+12*, RX+13
NUM	EXIT+5!
>> NUMPT	PRT1+1*
OUT	EXIT+3!
>> PAGE	PRT1+1, HDR2+2
PERSON	EXIT+5!
>> POP	PRT+1
PROV	PASS~, PASS+1
>> PSODFN	RX+4, RX+7, RXSET1+3
>> PSODRUG("IEN"	RX+4, RX+5, RX+6
>> PSORX("DFLG"	1+1*
>> PSORX("INTERVENE"	2+1*
SCR	EXIT+5!
SEQ	EXIT+5!
>> TOP	BROWSE+2, BROWSE+4, HDR2, HDR2+1, HDR2+2
U	CK+22, XMB+2, BROWSE+2, HDR2, RX+5, RX+11, RX+13, RXSET1, RXSET1+1, RXSET1+7
>> X	PRINT+9, PRINT+10, HDR, ASK+2
XMB	EXIT+7!, BULL+8, BULL1+1
>> XMDUN	DIC+10*
XMDUZ	XMB+3, EXIT+7!, BULL1, DIC+9*
>> XMSUB	XMB+2*
>> XMTEXT	XMB+1*
XMY	BULL~, BULL1+3!
XMY(	DIC+5*
>> XMZ	DIC+8*
>> Y	LOOK+10, LOOK+11, DIC+5, ASK+15*, ASK+17
>> ZTDESC	PRT+3*
>> ZTRTN	PRT+3*

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSQCK1

Information

Source Information

Call Graph

Call Graph Total: 17

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: