Routine: PSDAMIS1

Information

PSDAMIS1 ;BIR/JPW-Print NAOU AMIS Report by Drug ; 1 Sept 94

Source file <PSDAMIS1.m>

Package	Total	Call Graph
Controlled Substances	2	^PSDAMIS0 ^PSDCOSM

Package	Total	Caller Graph
Controlled Substances	1	PSDAMIS

Name	Comments	DBIA/ICR reference
SET	;sets data
START	;entry point for report
ALL	;loops for all drugs
CHK	;checks for zero cost data & sends e-mail from ^PSDCOSM

Name	Field # of Occurrence
^PSDAMIS0	CHK+2
^PSDCOSM	CHK+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"SETTING GLBL" Line Location: SET+11

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CHK+1, SET+11
^PSD(58.8 - [#58.8]	SET+2, SET+4, SET+5
^PSD(58.81 - [#58.81]	START+4, ALL+2, ALL+3, SET+1, SET+2, SET+7
^PSDRUG - [#50]	SET+3, SET+8, SET+11
^TMP("PSDAMIS"	START+1!, SET+12*
^TMP("PSDAMISC"	START+1!, SET+19*
^TMP("PSDAMISCG"	START+1!, SET+21*
^TMP("PSDAMISCN"	START+1!, SET+20*
^TMP("PSDAMISCVG"	START+2!, SET+22*
^TMP("PSDAMISG"	START+1!, SET+17*
^TMP("PSDAMISQ"	START+1!, SET+16*
^TMP("PSDAMISQT"	START+1!, SET+14*
^TMP("PSDAMISS"	START+1!, SET+15*
^TMP("PSDAMIST"	START+1!, SET+13*
^TMP("PSDAMISVG"	START+2!, SET+18*
^TMP("PSDM"	START+2!, CHK+1!, SET+11*

Name	Field # of Occurrence
^(0	SET+3, SET+4, SET+5
^(4	SET+7

Name	Field # of Occurrence
>> ALL	START+3, ALL+1
>> COST	SET+8*, SET+11, SET+12, SET+19, SET+20, SET+21, SET+22
>> JJ	START+4, ALL+2, ALL+3, SET+12
>> JJ1	START+4, ALL+2, ALL+3
>> KK	START+4, ALL+3, SET+1, SET+2, SET+7
>> LOC(	START+4
>> NAOUN	SET+4*, SET+12, SET+15, SET+16, SET+19
>> NODE	SET+1*, SET+6, SET+11
>> PSD	SET+1*, SET+2, SET+4
PSDCHO	CHK+1!
PSDCHO(1	CHK+1*
>> PSDED	START+4, ALL+2
>> PSDPN	SET+6*, SET+12
>> PSDR	START+4, ALL+2, ALL+3, SET+3, SET+8, SET+11
>> PSDRN	SET+3*, SET+11, SET+12, SET+13, SET+14, SET+15, SET+16, SET+19, SET+20
>> PSDS	SET+1*, SET+5
>> PSDSD	START+4, ALL+2
>> PSDSITE	SET+2
>> PSDSN	SET+5*, SET+18, SET+22
>> PSDT	CHK+1
>> PSDT(1	CHK+1*
>> QTY	SET+6, SET+7, SET+8, SET+11, SET+12, SET+14, SET+16
>> Y	CHK+1, SET+11