Routine: SD53726P

Information

SD53726P ;MNT/BJR - REMAP CLINICS 726 POST INSTALL ;4/2/19 10:04am

Package	Total	Call Graph
Kernel	4	^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT BMES^XPDUTL
VA FileMan	1	^DIE

Name	Comments	DBIA/ICR reference
EN	;Entry point for post install to remap clinics
RMVMES	;Remove MESSAGE (#1400) fields w/o corresponding SDCAN to ensure clinic grid builds properly
ADDT	;Add any missing "T" zero nodes to ensure clinic grid builds properly
CANC	; Cancel appt in 44 that are canceled in 2
SAVE	;Set up save variable for routine
ARRAY	;Set up routine array
CLOSE
END	;Clean up variables
END1	;Clean up Variables

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CANC+2, CANC+3, CANC+7
^SC - [#44]	EN+5, EN+6, EN+9, RMVMES+2, RMVMES+3!, RMVMES+4, ADDT+2, ADDT+3*, CANC+3, CANC+4 , CANC+5, CANC+7

Name	Field # of Occurrence
%ZIS	END1+1!
BEGDATE	EN+2~, EN+3*
DA	CANC+1~, CANC+6*
DA(1	CANC+6*
DA(2	CANC+6*
DIE	CANC+1~, CANC+6*
DR	CANC+1~, CANC+6*
DT	EN+3, EN+6, RMVMES+3, CANC+2
ENDDATE	EN+2~, EN+3*
IO("C"	END1+1!
IO("Q"	END1+1!
POP	CLOSE~
SDAPPT	CANC+1~, CANC+4*, CANC+5, CANC+6
SDBD	EN+2~, EN+3*
SDCLIN	CANC+1~, CANC+3*, CANC+4, CANC+5, CANC+6, CANC+7
SDDT	RMVMES+1~, RMVMES+2, RMVMES+3, RMVMES+4, ADDT+1~, ADDT+2, ADDT+3, CANC+1~, CANC+2*, CANC+3 , CANC+4, CANC+5, CANC+6, CANC+7
SDED	EN+2~, EN+3*
SDFZIS	EN+4*, END1+1!
SDI	SAVE+1*, END1+1!
SDIEN	EN+2~, EN+5, EN+6, EN+9, RMVMES+1~, RMVMES+2, RMVMES+3, RMVMES+4, ADDT+1~, ADDT+2* , ADDT+3, CANC+1~, CANC+2*, CANC+3, CANC+5, CANC+7
SDJ	ARRAY+1*, END1+1!
SDMES	RMVMES+1~, RMVMES+4, ADDT+1~, CANC+1~, CANC+7, CANC+8
SDPGM	EN+4*, EN+8, EN+10, END1+1!
SDQMES	EN+2~, EN+12*
SDVAR	SAVE+1*, END1+1!
SDVAR1	EN+4*, EN+8, END1+1!
SDZTSAVE	EN+8, SAVE+1, ARRAY+1, END1+1!
U	EN+6, EN+9, RMVMES+4, CANC+3, CANC+5, CANC+7
VAUTC	EN+2~, EN+9*
VAUTC(	EN+9*
VAUTD	EN+2~, EN+3*
XPDQUES	END1+1!
XPDQUES("POS1"	EN+7
ZTDESC	EN+8*, END1+1!
ZTDESCZTREQ	END+1!
ZTDTH	EN+7*, END1+1!
ZTIO	EN+7*, END1+1!
ZTQUEUED	CLOSE, END+1!
ZTRTN	EN+8*, END1+1!
ZTSAVE	END+1!
ZTSAVE(	SAVE+1*
ZTSAVE("SDPGM"	EN+10*
ZTSK	EN+12, END+1!
ZTUCI	END+1!