Routine: APSQNF

Information

APSQNF ;IHS/ASDS/ENM/POC - PROGRAM TO DEAL WITH NON FORMULARY REQUEST

Source file <APSQNF.m>

Package	Total	Call Graph
VA Fileman	3	MSG^DIALOG ^DIK ^DIR
Kernel	1	$$FMTE^XLFDT

Name	Comments	DBIA/ICR reference
NF(DRUG,PATIENT)	;CHECKS FOR NON FORMULARY REQUESTS FOR THIS PATIENT AND DRUG
ADD	;ADD A XREF
XREF(EN,SETKILL)	;CROSS REFERENCE ROUTINE
INIT
KILL	;KILL A XREF
DIR	;ASK QUESTION

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"A NON FORMULARY REQUEST DOES NOT EXISTS FOR THIS PATIENT FOR THIS DRUG" Line Location: INIT+3
Function Call: WRITE	Prompt: !,"A NON FORMULARY REQUEST EXISTS FOR THIS PATIENT DATED "_$$FMTE^XLFDT(9999999-APSQLAST),!,"BUT PRESCRIPTION # ",+^PSRX(APSQLAST(APSQLAST,U,2),0)," HAS BEEN FILLED FOR IT" Line Location: INIT+4
Function Call: WRITE	Prompt: !,"NON FORMULARY REQUEST ON FILE FOR THIS PATIENT AND DRUG DATED "_$$FMTE^XLFDT(9999999-APSQLAST) Line Location: INIT+5
Routine Call	DIR Line Location: DIR+5
Routine Call	DIALOG Line Location: XREF+4

FileNo	Call Tags
^APSQNF - [#9009035.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	APSQNF+5
^PSDRUG("B"	XREF+2
^PSNF(	NF+5, ADD+2, ADD+4, KILL+1, KILL+3
^PSNF("M"	NF+2, NF+3, NF+4, ADD+3, ADD+4, KILL+2!, KILL+3!
^PSRX - [#52]	INIT+4

Name	Field # of Occurrence
^(0	ADD+2, ADD+3, ADD+4, KILL+1, KILL+2, KILL+3

Name	Field # of Occurrence
APSQDAT	NF+3*, NF+4, NF+6, NF+9!
>> APSQDIR	INIT+3, INIT+4, INIT+5*, DIR+1
APSQDT	NF+1!, NF+9!
APSQDT(	NF+8
APSQDT(""	NF+7
APSQDT(9999999	NF+6*
>> APSQIEN	NF+4*, NF+5, NF+6
>> APSQLAST	INIT+3, INIT+4, INIT+5, NF+2, NF+7, NF+8
>> APSQLAST(	INIT+4, INIT+5, NF+2, NF+8
>> APSQRX	NF+5*, NF+6
>> DA	ADD+2, ADD+3, ADD+4, KILL+1, KILL+3
DIK	XREF+4*!
DIR	DIR+7!
DIR("A"	DIR+3*
DIR("B"	DIR+4*
DIR(0	DIR+2*
DIRUT	DIR+6, DIR+7!
DRUG	NF~, NF+2, NF+3, NF+4
DTOUT	DIR+6, DIR+7!
DUOUT	DIR+6, DIR+7!
EN	XREF~, XREF+1, ADD+2, ADD+7, KILL+1
>> LOCAL("DIMSG"	XREF+4*
>> OUTDIEN	XREF+2*, XREF+4, ADD+3, KILL+2
PATIENT	NF~, NF+2, NF+3, NF+4
>> PSODFN	APSQNF+4, INIT+1
>> PSODRUG("IEN"	APSQNF+4, APSQNF+5, INIT+1
SETKILL	XREF~, XREF+1, XREF+5, XREF+6
U	INIT*, INIT+4, INIT+5, NF+5, NF+6, ADD+2, ADD+3, ADD+4, KILL+1, KILL+2 , KILL+3
>> X	ADD+3, ADD+4, KILL+2, KILL+3
>> Y	DIR+6*