Routine: APCLP13

Information

APCLP13 ; IHS/CMI/LAB - Routine to create bulletin ; [ 05/20/03 10:01 AM ]

Source file <APCLP13.m>

Package	Total	Call Graph
VA Fileman	3	^DIC DT^DICRW (,IX1)^DIK
Kernel	2	HOME^%ZIS $$ADD^XPDMENU
MailMan	1	^XMD
Patient Care Component Reports	1	^APCLP13A

Name	Comments	DBIA/ICR reference
PRE	;EP
OPT	;add 2 new options (supplement, report)
SENDER
WRITEMSG	;
GETRECIP	;
DRUGS	;set up drug taxonomies
DRUG1	;
POST	;EP
SUBJECT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Creating ",APCLX," Taxonomy..." Line Location: DRUG1+1
Function Call: WRITE	Prompt: !!,"ERROR IN CREATING ",APCLX," TAX" Line Location: DRUG1+5
Function Call: WRITE	Prompt: "Attempt to add DM 2003 Audit Menu option failed.." Line Location: OPT+3
Function Call: WRITE	Prompt: "Attempt to add delete option for vgen/pgen failed.." Line Location: OPT+5
Function Call: WRITE	Prompt: "Attempt to delimited reports menu failed.." Line Location: OPT+7
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR ZERO.",! Line Location: OPT+16
Function Call: WRITE	Prompt: !,"Sending Mailman message to holders of the"_" "_APCLKEY_" "_"security key." Line Location: SENDER+2
Routine Call	%ZIS Line Location: OPT+17
Routine Call	DIC Line Location: DRUG1+4

Name	Line Occurrences (* Changed, ! Killed)
^APCLBMI("H"	PRE+6!
^APCLPDES - [#9001004.5]	WRITEMSG+3
^APCLPDES("B"	WRITEMSG+1
^ATXAX - [#9002226]	DRUG1+6*
^ATXAX("B"	DRUG1+2
^TMP($J	OPT+20!, SENDER+4!, WRITEMSG+3*
^XUSEC(	GETRECIP+4

Name	Field # of Occurrence
^(0	DRUG1+6*

Name	Field # of Occurrence
>> APCLDA	DRUG1+2*, DRUG1+3
APCLKEY	SENDER+2, SENDER+4!, GETRECIP+3*, GETRECIP+4
>> APCLTX	DRUG1+6*, DRUG1+7
>> APCLX	DRUGS+2, DRUGS+3, DRUG1+1, DRUG1+2, DRUG1+4, DRUG1+5, DRUG1+6
>> ATXFLG	DRUGS+1*
>> CTR	GETRECIP+3, GETRECIP+4
DA	PRE+1, PRE+3, PRE+4, PRE+5, DRUG1+4!, DRUG1+7*
DIADD	DRUG1+4*!
DIC	DRUG1+4*!
DIC(0	DRUG1+4*
DIFROM	OPT+19~
>> DIK	PRE+1, PRE+3, PRE+4, PRE+5, DRUG1+7*
DLAYGO	DRUG1+4*!
DT	DRUG1+6
DUZ	DRUG1+6, OPT+16, SENDER+1
I	DRUG1+4!
IOST	SENDER+2
U	DRUG1+6
X	DRUG1+4, OPT+1~, OPT+2, OPT+3, OPT+4, OPT+5, OPT+6, OPT+7, WRITEMSG+1*, WRITEMSG+2 , WRITEMSG+3
XMDUZ	OPT+19~, SENDER*
XMSUB	OPT+19~, SUBJECT*
XMTEXT	OPT+19~, SENDER+1*
XMY	OPT+19~
XMY(	SENDER+1, GETRECIP+4
XMY(1	SENDER+1*
>> XPDDIQ("XPZ1"	APCLP13+5*
>> XPDDIQ("XPZ2"	APCLP13+5*
>> XPDENV	APCLP13+5
>> Y	DRUG1+5, DRUG1+6, WRITEMSG+3, GETRECIP+4