Routine: ADERVW2

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ADEFOL - [#9002003.2]	R4+1, R5
^ADEFOL("TYPE"	ACTIV, ACTIV+2, R2, R3
^ADEPAT - [#9002010.2]	FAIL, FAIL+6, PREV, PREV+4, P2, P2+1
^ADETYP - [#9002003.1]	R2, P1, P1+1

Name	Field # of Occurrence
^(0	FAIL+6, R4+1, P1+1

Name	Field # of Occurrence
>> %ZIS	ASKDEV+1*
>> ADEBRK	ADERVW2+3
>> ADECAT	R2*, R3
>> ADECKP	ADERVW2+3
>> ADECVD	FAIL+6, R4+1, P2, P2+1
>> ADEICL	FAIL, FAIL+1, FAIL+6, ACTIV, ACTIV+1, PREV, PREV+1, PREV+2, R2, R5 , P1+2, P2+2
>> ADEMDFN	R3*, R4+1, R5
>> ADENDM	FAIL+2, PREV+3
>> ADENDMS	FAIL+2, FAIL+6, PREV+3, PREV+4
>> ADENRQ	FAIL, FAIL+1, FAIL+6, ACTIV, ACTIV+1, ACTIV+2, PREV, PREV+1, PREV+2, R2 , P1+2, P2+2
ADEPAT	FAIL, FAIL+6, ACTIV, ACTIV+2, PREV, PREV+4, R2, R3, P2, P2+1 , EN+2~, EN+4, EN+7
ADEPCC	EN+2~, EN+3*
>> ADEPRT	FAIL, FAIL+1, FAIL+6, ACTIV, ACTIV+1, PREV, PREV+1, PREV+2, R4+1, R5 , P1+2, P2+2
>> ADEQ	ACTIV+2, PREV+4, R2, R3
>> ADER	FAIL+6*
>> ADESUB	PREV+4*, P1, P1+1
>> ADESUBD	PREV+4*, P2, P2+1
>> ADETXT	FAIL, FAIL+1, FAIL+6, ACTIV, ACTIV+1, PREV, PREV+1, PREV+2, R2, R4+1 , R5, P1, P1+1, P2, P2+1*
>> ADETYP	ACTIV+2*, R2, R3
>> ADETYPN	ACTIV+2*, R4+1
>> APCHSNPG	ADERVW2+3
>> APCHSQIT	ADERVW2+3
DIC	EN+5!*
DIC(0	EN+5*
IO("Q"	ASKDEV+1!
>> POP	ASKDEV+1
U	FAIL+6, R2, R4+1, R5, P1, P1+1, P2, P2+1
>> Y	FAIL+6, R4+1, P2, P2+1, EN+6, EN+7
>> ZTDESC	QUE*
>> ZTQUEUED	ASKDEV+1
>> ZTRTN	QUE*
>> ZTSAVE("ADEPAT"	QUE*
>> ZTSAVE("ADEPCC"	QUE*

Information

Name	Comments	DBIA/ICR reference
R4	;S Y=$P(^ADEFOL(ADEMDFN,0),U,3) X ADECVD S ADETXT=Y_" "_ADETXT_" "_ADETYPN S:$P(^(0),U,5)="u" ADETXT=ADETXT_" URGENT" X ADEPRT D:$P(^(0),U,6)]"" R5 Q ;ADETXT=ADETXT_" ACTION TAKEN: "_$P(^(0),U,6) X ADEPRT Q
R5
P1
END
R2
R3
ACTIV
ZTM
EN	;EP ------->ENTRY POINT FOR FOLLOWUP REVIEW OPTION
QUE
ENEND
FAIL
P2
PREV
ASKDEV	;FHL 9/9/98 S %ZIS="Q" D ^%ZIS G:POP ENEND I $D(IO("Q")) K IO("Q") D QUE W:$D(ZTSK) !,"REQUEST QUEUED!" G ENEND