Routine: APSPRXD

Information

APSPRXD ; IHS/DSD/ENM - DELETE PRESCRIPTIONS UP TO CERTAIN DATE ; [ 09/03/97 1:30 PM ]

Source file <APSPRXD.m>

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIK ^DIR
Kernel	1	^%ZTLOAD

Name	Comments	DBIA/ICR reference
END
PROCESS	;
ENQUE	; EP
RX	;
ASKX
START	;
QUE	;
EOJ	;
ASK	;
CHECK	; ; IF THE ENTRY DOES NOT EXIST, KILL THE XREF. ;IHS/ANMC/MWR 03/19/92
DELETE	;

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls
^PS(52.5 - [#52.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.5 - [#52.5]	DELETE+9
^PS(55 - [#55]	DELETE+2, DELETE+3*, DELETE+4!, DELETE+5, DELETE+6
^PSRX - [#52]	CHECK+2, CHECK+6, DELETE+1
^PSRX("AD"	PROCESS+1, RX+2, CHECK+2!

Name	Field # of Occurrence
^(	CHECK+6, DELETE+2, DELETE+5!, DELETE+6!
^(0	DELETE+3

Name	Field # of Occurrence
>> %	CHECK+6, DELETE+5
APSPRXD	EOJ+1!
APSPRXD("CHEC	K QFLG" , CHECK+5, CHECK+6, CHECK+7
APSPRXD("DATE"	PROCESS+1*, RX+2, CHECK+2
APSPRXD("ED"	ASK+6*, PROCESS+1, CHECK+6
APSPRXD("IRXN"	RX+2*, CHECK+2, CHECK+6, DELETE+1, DELETE+2, DELETE+5, DELETE+6, DELETE+9, DELETE+10
APSPRXD("PAT"	DELETE+1*, DELETE+2, DELETE+3, DELETE+4, DELETE+5, DELETE+6
APSPRXD("QFLG"	ASK+5*
APSPRXDI	DELETE+1!, DELETE+2*, DELETE+4
DA	DELETE+9!, DELETE+10!
DIK	DELETE+9!, DELETE+10!
DIR	ASKX!
DIR("?"	ASK+3*
DIR("A"	ASK+2*
DIR("B"	ASK+1*
DIR(0	ASK+1*
>> DTOUT	ASK+5
>> DUOUT	ASK+5
>> MWR	START+1, DELETE+11
U	DELETE+1, DELETE+3
X	ASK+6*, ASKX!
Y	ASK+6, ASKX!
>> ZTDESC	QUE+2*
>> ZTIO	QUE+1*
>> ZTQUEUED	EOJ+2
>> ZTREQ	EOJ+2*
>> ZTRTN	QUE+1*
>> ZTSAVE("APSPRXD(""ED"")"	QUE+1*
ZTSK	EOJ+1!