Routine: APSQCK

Package	Total	Call Graph
VA Fileman	7	^DDS (,$$FIND1,FIND,LIST)^DIC YN^DICN ^DIE ^DIK EN^DIQ ^DIR
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD SIG^XUSESIG
IHS Changes To Pharmacy	2	(CK,LOOK,RX,RXSET,RXSETK,VAL1,VAL2,VAL3,VAL33,VAL4,VAL44)^APSQCK1 POST^APSQCK2
MailMan	2	DEST^XMA21 ^XMB
IHS VA Utilities	1	VIEWR^XBLM

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSQBEG APSQFAS4

Entry Points

Name	Comments	DBIA/ICR reference
VAL44	;EP VALIDATION OF SCREENMAN APSQ NF PHARMACIST ...
VAL33	;EP VALIDATION OF SCREENMAN APSQ NF PHARMACIST ...
HDR
LIST1
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
DIR	;
PRT1	;EP
HDR2
PTPROVA
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
PHAR	;EP ENTRY POINT TO EDIT NON FORMULARY REQUEST BY A PHARMACIST
PRT	;PRINT IT
EDIT2	;EDIT A SCREEN FORM USING IEN FOR DA
RPROV	;EP ENTRY POINT TO ADD/EDIT NON FORMULARY REQUEST
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
BULL2	;ADD ANY EXTRA PEOPLE TO BULLETIN
ADD	;CALL DIC TO ADD AND THEN DDS TO EDIT
RPROVA	;LIST NON FORMULARY REQUEST BY REQ PROVIDER WITH APP PROVIDER=""
APROV	;EP ENTRY POINT TO APPROVE NON FORMULARY REQUEST
POST
FROMA
LOOK	;EP LOOK UP AN ENTRY AND DO SOMETHING
PTPROV	;EP ENTRY POINT TO ADD/EDIT NON FORMULARY REQUEST
EDIT	;EDIT A SCREEN FORM USING IEN FOR DA
HDR1
EDIT1	;EDIT A SCREEN FORM USING IEN FOR DA
APROVA
EXIT	;CLEAN UP TIME
RXSET	;EP SET THE REFERENCE RX FIELD
PHARA

External References

Name	Field # of Occurrence
^%ZIS	PRT+1
HOME^%ZIS	PRT+2
^%ZISC	PRT1+8
^%ZTLOAD	PRT+2
CK^APSQCK1	CK+1
LOOK^APSQCK1	LOOK+2
RX^APSQCK1	RX+3
RXSET^APSQCK1	RXSET+3
RXSETK^APSQCK1	RXSETK+3
VAL1^APSQCK1	VAL1+2
VAL2^APSQCK1	VAL2+1
VAL3^APSQCK1	VAL3+1
VAL33^APSQCK1	VAL33+1
VAL4^APSQCK1	VAL4+1
VAL44^APSQCK1	VAL44+1
POST^APSQCK2	POST
^DDS	EDIT2+8, EDIT1+8, EDIT+9
^DIC	ADD+7, DIC+4
$$FIND1^DIC	DIC+8
FIND^DIC	BULL+7
LIST^DIC	LIST1+1
YN^DICN	EDIT+23
^DIE	FROMA+17
^DIK	EDIT+16
EN^DIQ	FROMA+3
^DIR	FROMA+8, DIR+3, ADD+1, PRINT+6
VIEWR^XBLM	BROWSE+4
DEST^XMA21	DIC+11
^XMB	BULL1+2
SIG^XUSESIG	APROV+5, PHAR+5, PTPROV+5, RPROV+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: APROV+1
Function Call: WRITE	Prompt: !!! Line Location: APROV+2
Function Call: WRITE	Prompt: !,"YOU DON'T HAVE AUTHORIZATION TO WRITE MED ORDERS SO-BYE" Line Location: APROV+3
Function Call: WRITE	Prompt: "ENTER YOUR ELECTRONIC SIGNATURE TO APPROVE A NON FORMULARY REQUESTS" Line Location: APROV+4
Function Call: WRITE	Prompt: @IOF,!!,7,7,"SORRY THAT ELECTRONIC SIG NOT CORRECT!!" Line Location: APROV+6
Function Call: WRITE	Prompt: @IOF Line Location: FROMA+0
Function Call: WRITE	Prompt: !,"YOUR SIGNATURE HAS BEEN "_$S($D(DEL):"DELETED",1:"APPLIED") Line Location: FROMA+18
Function Call: WRITE	Prompt: @IOF Line Location: PHAR+1
Function Call: WRITE	Prompt: !!! Line Location: PHAR+2
Function Call: WRITE	Prompt: !,"YOU MUST HAVE THE 'PSORPH' KEY TO CONTINUE-BYE" Line Location: PHAR+3
Function Call: WRITE	Prompt: "ENTER YOUR ELECTRONIC SIGNATURE TO EDIT NON FORMULARY REQUESTS" Line Location: PHAR+4
Function Call: WRITE	Prompt: @IOF,!!,7,7,"SORRY THAT ELECTRONIC SIG NOT CORRECT!!" Line Location: PHAR+6
Function Call: WRITE	Prompt: @IOF Line Location: PTPROV+1
Function Call: WRITE	Prompt: !!! Line Location: PTPROV+2
Function Call: WRITE	Prompt: !,"YOU MUST HAVE THE 'PSORPH' KEY TO CONTINUE-BYE" Line Location: PTPROV+3
Function Call: WRITE	Prompt: "ENTER YOUR ELECTRONIC SIGNATURE TO ADD/EDIT NON FORMULARY REQUESTS" Line Location: PTPROV+4
Function Call: WRITE	Prompt: @IOF,!!,7,7,"SORRY THAT ELECTRONIC SIG NOT CORRECT!!" Line Location: PTPROV+6
Function Call: WRITE	Prompt: @IOF Line Location: RPROV+2
Function Call: WRITE	Prompt: !!! Line Location: RPROV+3
Function Call: WRITE	Prompt: !,"YOU DON'T HAVE AUTHORIZATION TO WRITE MED ORDERS SO-BYE" Line Location: RPROV+4
Function Call: WRITE	Prompt: "ENTER YOUR ELECTRONIC SIGNATURE TO ADD/EDIT NON FORMULARY REQUESTS" Line Location: RPROV+5
Function Call: WRITE	Prompt: @IOF,!!,7,7,"SORRY THAT ELECTRONIC SIG NOT CORRECT!!" Line Location: RPROV+7
Function Call: WRITE	Prompt: @IOF,! Line Location: LIST1+2
Function Call: WRITE	Prompt: !,DISP(I) Line Location: LIST1+12
Function Call: WRITE	Prompt: "IT WAS CHANGED" Line Location: EDIT+10
Function Call: WRITE	Prompt: !,"SOMETHING WRONG DID NOT ADD ENTRY" Line Location: ADD+8
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
Routine Call	DIC Line Location: LIST1+1
Routine Call	%ZIS Line Location: PRT+2
Routine Call	DIE Line Location: FROMA+17
Routine Call	DIC Line Location: DIC+8
Routine Call	DIR Line Location: FROMA+8 DIR+3 ADD+1 PRINT+6
Routine Call	%ZIS Line Location: PRT+1
Routine Call	DDS Line Location: EDIT2+8 EDIT1+8 EDIT+9
Routine Call	DIC Line Location: ADD+7 DIC+4
Routine Call	DIC Line Location: BULL+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^XMB(3.6 - [#3.6]	FIND1^DIC
^APSQNF - [#9009035.1]	Classic Fileman Calls, FIND^DIC, LIST^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSQNF - [#9009035.1]	FROMA+5, FROMA+6, FROMA+21, FROMA+22, EDIT2+14, EDIT2+15, EDIT1+14, EDIT1+15, EDIT+17, BROWSE+2 , HDR2
^APSQNF("9999999999"	ADD+6
^DPT - [#2]	BROWSE+2, HDR2
^VA(200 - [#200]	APROV+3, RPROV+4
^XUSEC("APSQ NF APPROVING PROVIDER"	EDIT+21
^XUSEC("PSORPH"	PHAR+3, PTPROV+3

Label References

Name	Line Occurrences
@(	PRT1+3
ADD	EDIT+2
APROVA	APROVA+7, FROMA+12, FROMA+29
BROWSE	PRINT+10
BULL	FROMA+24, EDIT2+17, EDIT1+17, EDIT+19
BULL1	BULL+10
BULL2	BULL+9
DIC	DIC+5
EDIT	RPROVA+9
EDIT1	PHARA+6
EDIT2	PTPROVA+7
EXIT	APROV+3, APROV+6, APROVA+7, FROMA+13, PHAR+3, PHAR+6, PTPROV+3, PTPROV+6, RPROV+4, RPROV+7 , RPROVA+8, RPROVA+10, EDIT2+4, EDIT2+21, EDIT1+4, EDIT1+21, EDIT+13, EDIT+25, PRT+1
FROMA	EDIT+21
HDR	PRT1+6
LIST1	APROVA+5, PHARA+6, PTPROVA+7, RPROVA+7, DIR+8
PHARA	PHARA+7
PRT	PRINT+9
PTPROVA	PTPROVA+8
RPROVA	RPROVA+16

Naked Globals

Name	Field # of Occurrence
^(0	FROMA+21, EDIT2+14, EDIT1+14, EDIT+17
^(1	FROMA+22, EDIT2+15, EDIT1+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EDIT+21, EDIT+23*
>> %ZIS	PRT+1*
ADD	EDIT2+2, EDIT1+2, EDIT+1, EDIT+2, EDIT+16, EXIT+6!
>> ARRAY	PRT1+4*, PRT1+5
>> ARRAY(	PRT1+4, PRT1+5
BULLETIN	BULL~, BULL1+1, DIC+8
CNT	LIST1+4, LIST1+6, LIST1+8, LIST1+9, LIST1+11, EXIT+6!
DA	FROMA+2, FROMA+14, EDIT2+2, EDIT1+2, EDIT+1, EDIT+16!, ADD+9*, EXIT+5!, BROWSE+2, HDR2
DDSCHANG	EDIT2+13, EDIT1+13, EDIT+19, EXIT+5!
DDSFILE	EDIT2+5, EDIT1+5, EDIT+6*, EXIT+5!
DDSPARM	EDIT2+7, EDIT1+7, EDIT+8*, EXIT+5!
DDSSAVE	EDIT2+13, EDIT1+13, EDIT+16, EDIT+19, EXIT+5!
DEL	FROMA+5*, FROMA+6, FROMA+15, FROMA+18, FROMA+20, FROMA+25!, FROMA+27!, EXIT+6!
DIC	FROMA+1!, FROMA+2, FROMA+8!, ADD+5, DIC+1*, DIC+6!
DIC("A"	DIC+3*
DIC("S"	DIC+2*
DIC(0	ADD+5, DIC
>> DIE	FROMA+14*
DIK	EDIT+16*!
>> DIQ(0	FROMA+2*
DIR	FROMA+4!, DIR+3!, DIR+11!, ADD+1!, PRINT+1!, PRINT+7!
DIR("A"	FROMA+6, DIR+2, ADD+1, PRINT+3
DIR("B"	ADD+1, PRINT+4
DIR(0	FROMA+7, DIR+1, ADD+1, PRINT+2
>> DIROUT	FROMA+13, PRINT+8
>> DIRUT	FROMA+13, PRINT+8
DISP	LIST1!, DIR+8!, EXIT+4!
DISP(	LIST1+8, LIST1+9, LIST1+11, LIST1+12, DIR+10
DR	FROMA+1!, FROMA+8!, FROMA+15, FROMA+16, EDIT2+6, EDIT1+6, EDIT+7*, EXIT+5!
DTIME	HDR
>> DTOUT	FROMA+13, DIR+5, PRINT+8
>> DUOUT	FROMA+13, PRINT+8
DUZ	APROV+3, APROVA, FROMA+16, PHAR+3, PHARA, PTPROV+3, PTPROVA, RPROV+4, DIR+5, EDIT2+1* , EDIT1+1, EDIT+21, EXIT+1*
DUZSAVE	APROVA, FROMA+16, PHARA, PTPROVA*, DIR+5!, EDIT2+1!, EDIT1+1!, EDIT+21!, EXIT+1!
>> END	PRT1+1, PRT1+4, HDR
EXIT	APROVA+7, RPROVA+8, RPROVA+10, DIR+5, EDIT2+4, EDIT1+4, ADD+8, EXIT+2!
EXIT1	EDIT+5!, ADD+2*, ADD+4!, EXIT+3!
FROM	APROVA+1!, APROVA+4, PHARA+3!, PHARA+5, PTPROVA+3!, PTPROVA+4, RPROVA+1!, RPROVA+4, LIST1+1, EXIT+6!
GET	EXIT+6!
GET("DILIST"	BULL+8
GOTIT	BULL~, BULL+6*, BULL+7
HIT	APROVA+1!, APROVA+7, FROMA+2, FROMA+5, FROMA+6, FROMA+14, FROMA+20, FROMA+21, FROMA+22, FROMA+24 , FROMA+27!, DIR+10, EDIT2+2, EDIT2+13, EDIT2+14, EDIT2+15, EDIT2+17, EDIT2+20!, EDIT1+2, EDIT1+13 , EDIT1+14, EDIT1+15, EDIT1+17, EDIT1+20!, EDIT+1, EDIT+16!, EDIT+17, EDIT+19, EDIT+21, EDIT+24! , ADD+9, EXIT+6!
I	LIST1+10, LIST1+11, LIST1+12, DIR+8!, EXIT+6!
IEN	LIST1+7*, LIST1+8, DIR+8!, EXIT+6!
IO	PRT1+2
IO("Q"	PRT+2!
IOF	APROV+1, APROV+6, FROMA, PHAR+1, PHAR+6, PTPROV+1, PTPROV+6, RPROV+2, RPROV+7, LIST1+2 , HDR1
IOM	HDR2+2
IOSL	PRT1+6
IOST	PRT1+3, HDR
J	DIR+8!
KILL	EDIT+13!
>> LENG	HDR2+1*, HDR2+2
MORE	LIST1+3*, DIR+8, EXIT+6!
NUM	LIST1+3*, DIR+1, EXIT+6!
>> NUMPT	PRT1+1*
OUT	LIST1!, EXIT+4!
OUT("DILIST"	LIST1+3, LIST1+5, LIST1+7, LIST1+10, LIST1+11
>> PAGE	PRT1+1, HDR2+2
PERSON	FROMA+24, EDIT2+17, EDIT1+17, EDIT+19, EXIT+6!
PERSON(	FROMA+21, FROMA+22, EDIT2+14, EDIT2+15, EDIT1+14, EDIT1+15, EDIT+17*
>> POP	PRT+1
PROV	PASS~, PASS+1
RPROV	FROMA+11!, FROMA+28!, EDIT+21*
SCR	APROVA+4, PHARA+5, PTPROVA+6, RPROVA+4, EXIT+6!
SEQ	LIST1+5*, LIST1+7, LIST1+10, LIST1+11, EXIT+6!
>> TOP	BROWSE+2, BROWSE+4, HDR2, HDR2+1, HDR2+2
U	FROMA+5, FROMA+6, FROMA+21, FROMA+22, LIST1+3, EDIT2+14, EDIT2+15, EDIT1+14, EDIT1+15, EDIT+17 , BROWSE+2, HDR2
>> X	ADD+6, PRINT+9, PRINT+10, HDR
>> X1	APROV+6, PHAR+6, PTPROV+6, RPROV+7
XMB	EXIT+8!, BULL+8, BULL1+1
>> XMDUN	DIC+10*
XMDUZ	EXIT+8!, BULL1, DIC+9
XMY	BULL~, BULL1+3!
XMY(	DIC+5*
>> XMZ	DIC+8*
Y	FROMA+11, FROMA+12, FROMA+18, PHARA+7, PTPROVA+8, DIR+5, DIR+8, DIR+10, DIR+11!, ADD+2 , ADD+8, ADD+9, DIC+5
>> ZTDESC	PRT+3*
>> ZTRTN	PRT+3*

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSQCK

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: