Routine: PXRMP17I

Information

PXRMP17I ; SLC/PKR - Inits for PXRM*2.0*17. ;02/02/2010

Source file <PXRMP17I.m>

Package	Total	Call Graph
Clinical Reminders	6	DELEXE^PXRMEXSI BLDLIST^PXRMFRPT SEND^PXRMMSG (RENASPON,SENDPV)^PXRMP17I ALLERGY^PXRMP17U (OPTION,PROTOCOL,RENAME,SETPVER)^PXRMUTIL
Kernel	5	^%ZTLOAD $$NOW^XLFDT BMES^XPDUTL $$KSP^XUPARAM $$PROD^XUPROD
Toolkit	1	$$GET^XPAR
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Clinical Reminders	1	PXRMP17I

Name	Comments	DBIA/ICR reference
PRE	;Pre-init
DELDD	;Delete the old data dictionaries.
CFINC(Y)	;List of computed findings to include in the build.
ALLERGY	;Reset computed finding parameter for new version of VA-ALLERGY
LTL(LIST)	;This is the list of list templates that being distributed
MSTSYNC	;Run the MST synchronization.
POST	;Post-init
INILT	;Initialize list templates
SENDPV	;Send the system level value of ORQQPX NEW REMINDER PARAMS.
RENASPON	;Rename some Sponsor file entries.

FileNo	Call Tags
^XMB(3.8 - [#3.8]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PXD(811.9 - [#811.9]	ALLERGY+13, ALLERGY+14*
^PXRM(800 - [#800]	SENDPV+14
^PXRMD(811.4 - [#811.4]	ALLERGY+4, CFINC+6
^PXRMD(811.5 - [#811.5]	ALLERGY+20, ALLERGY+21*
^TMP(	SENDPV+3!, SENDPV+18, SENDPV+19
^TMP($J	ALLERGY+6!, ALLERGY+10, ALLERGY+12, ALLERGY+17, ALLERGY+19, ALLERGY+22!
^XMB("NETNAME"	SENDPV+8

Name	Field # of Occurrence
CFIEN	ALLERGY+3~, ALLERGY+4*, ALLERGY+5, ALLERGY+7, ALLERGY+10, ALLERGY+12, ALLERGY+17, ALLERGY+19
CFLIST	CFINC+1~
CFLIST(	CFINC+7
CFLIST("VA-AC	TIVE PATIENT RECORD FLAGS" , CFINC+5*
CFLIST("VA-ALLERGY"	CFINC+2*
CFLIST("VA-AS	U USER CLASS" , CFINC+3*
CFLIST("VA-WA	S INPATIENT" , CFINC+4*
CFNAME	CFINC+1~, CFINC+6*, CFINC+7
CFPARAM	ALLERGY+3~, ALLERGY+13, ALLERGY+14, ALLERGY+20, ALLERGY+21
DUZ	SENDPV+15
FINDING	ALLERGY+3~, ALLERGY+11, ALLERGY+12, ALLERGY+13, ALLERGY+14, ALLERGY+18, ALLERGY+19, ALLERGY+20, ALLERGY+21
FROM	SENDPV+1~, SENDPV+8*, SENDPV+20
IEN	ALLERGY+3~, ALLERGY+9, ALLERGY+10, ALLERGY+12, ALLERGY+13, ALLERGY+14, ALLERGY+16, ALLERGY+17, ALLERGY+19, ALLERGY+20 , ALLERGY+21
LIST	LTL~
MGIEN	SENDPV+13~, SENDPV+14*, SENDPV+15
MGROUP	SENDPV+13~, SENDPV+15*, SENDPV+16
NEWNAME	RENASPON+1~, RENASPON+4, RENASPON+5, RENASPON+7, RENASPON+8
NODE	SENDPV+1~, SENDPV+2*, SENDPV+3, SENDPV+18, SENDPV+19, SENDPV+20
OLDNAME	RENASPON+1~, RENASPON+3, RENASPON+5, RENASPON+6, RENASPON+8
PARAM	SENDPV+1~, SENDPV+4*, SENDPV+6, SENDPV+17
SUBJ	SENDPV+1~
>> SUBJECT	SENDPV+17*, SENDPV+18, SENDPV+20
SYSTEM	SENDPV+1~, SENDPV+10*, SENDPV+19
TEXT	MSTSYNC+1~, MSTSYNC+9*, MSTSYNC+10
TO	SENDPV+1~, SENDPV+20
TO(	SENDPV+16*
TO("G.CLINICA	L REMINDERS SUPPORT@FORUM.VA.GOV" , SENDPV+11*
U	CFINC+6
VALUE	SENDPV+1~, SENDPV+6*, SENDPV+18
Y	CFINC~, CFINC+6
>> ZTDESC	MSTSYNC+5*
>> ZTDTH	MSTSYNC+6*
>> ZTIO	MSTSYNC+7*
>> ZTRTN	MSTSYNC+4*
ZTSAVE	MSTSYNC+2!
ZTSAVE("STIME"	MSTSYNC+3*
>> ZTSK	MSTSYNC+9