Routine: APSQCNDC

Information

APSQCNDC ;IHS/ASD/ENM/POC - FINDS PROBLEM NDC NUMBERS IN DRUG FILE [ 11/21/2002 10:37 AM ]

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC

Name	Field # of Occurrence
^%ZIS	APSQCNDC+5
^%ZISC	APSQCNDC+30

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?2,$E($P(^PSDRUG(+APSQIEN,0),U,1),1,20),?25," (",+APSQIEN,")",?40,"HAS NO NDC" Line Location: APSQCNDC+19
Function Call: WRITE	Prompt: !,?2,$E($P(^PSDRUG(+APSQIEN,0),U,1),1,20),?25," (",+APSQIEN,")",?40,"HAS INCORRECT FORMAT - ",APSQNDC Line Location: APSQCNDC+20
Function Call: WRITE	Prompt: ! Line Location: APSQCNDC+25
Function Call: WRITE	Prompt: !,?2,"DRUGS WITH APPROPRIATE NDC NUMBERS: "_$J(CNTGOOD,5) Line Location: APSQCNDC+26
Function Call: WRITE	Prompt: !,?2,"DRUGS WITH PROBLEM NDC NUMBERS: "_$J(CNTBAD,5) Line Location: APSQCNDC+27
Function Call: WRITE	Prompt: !,?2," ","------" Line Location: APSQCNDC+28
Function Call: WRITE	Prompt: !,?2,"TOTAL DRUGS COUNTED: "_$J(CNT,5) Line Location: APSQCNDC+29
Function Call: READ	Timeout: DTIME Variable: X Line Location: HDR+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+0
Function Call: WRITE	Prompt: ?(IOM-$L(HEAD)-2/2),HEAD,?(IOM-10),"PAGE: ",$J(PAGE,3) Line Location: HDR2+5
Routine Call	%ZIS Line Location: APSQCNDC+5

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	APSQCNDC+12, APSQCNDC+13, APSQCNDC+14, APSQCNDC+16, APSQCNDC+19, APSQCNDC+20

Name	Line Occurrences
@(	APSQCNDC+11
HDR	APSQCNDC+17, APSQCNDC+24

Name	Field # of Occurrence
^("I"	APSQCNDC+13

Name	Field # of Occurrence
>> %ZIS	APSQCNDC+4*
APSQIEN	APSQCNDC+6~, APSQCNDC+12*, APSQCNDC+13, APSQCNDC+14, APSQCNDC+16, APSQCNDC+19, APSQCNDC+20
APSQNDC	APSQCNDC+6~, APSQCNDC+16*, APSQCNDC+19, APSQCNDC+20
CNT	APSQCNDC+6~, APSQCNDC+7, APSQCNDC+18, APSQCNDC+29
CNTBAD	APSQCNDC+6~, APSQCNDC+7, APSQCNDC+19, APSQCNDC+20*, APSQCNDC+27
CNTGOOD	APSQCNDC+6~, APSQCNDC+7, APSQCNDC+22, APSQCNDC+26
DIV	APSQCNDC+6~, HDR2+4
DT	APSQCNDC+13
DTIME	HDR+1
END	APSQCNDC+6~, APSQCNDC+10, APSQCNDC+12, APSQCNDC+23, HDR+1
HEAD	APSQCNDC+6~, HDR2+4*, HDR2+5
IO	APSQCNDC+11
IOF	HDR1
IOM	HDR2+5
IOSL	APSQCNDC+17
IOST	APSQCNDC+11, HDR+1
NOWRITE	APSQCNDC+6~, APSQCNDC+8, APSQCNDC+24, HDR2+6
PAGE	APSQCNDC+6~, APSQCNDC+10, HDR2, HDR2+5
U	APSQCNDC+9*, APSQCNDC+14, APSQCNDC+16, APSQCNDC+19, APSQCNDC+20
X	APSQCNDC+20, APSQCNDC+21!, HDR+1