Routine: APSPEC04

Name	Comments	DBIA/ICR reference
PRE	;EP - Pre-init
RENXPAR(OLD,NEW)	; Rename parameter
FIXCMF	; EP - Remove Chronic Med Flag for Discontinued/Deleted Medications
REMXPAR(PAR)	;Remove values stored for a given parameter
ENV	;EP
POST	;EP
MES(TXT,QUIT)	;EP

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: ENV+3
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_$P($T(+2),";",3)_", Patch 1004.",IOM) Line Location: ENV+4
Function Call: WRITE	Prompt: !! Line Location: FIXCMF+3
Routine Call	DIC Line Location: RENXPAR+3 RENXPAR+4
Routine Call	DIE Line Location: RENXPAR+7

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^XTV(8989.5 - [#8989.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	FIXCMF+4, FIXCMF+5
^XPAR(8989.5	REMXPAR+4, REMXPAR+5, REMXPAR+6
^XPAR(8989.51	REMXPAR+2
^XPD(9.7 - [#9.7]	ENV+7, ENV+8

Name	Field # of Occurrence
CNT	FIXCMF+1~, FIXCMF+4, FIXCMF+6, FIXCMF+9
DA	REMXPAR+1~, REMXPAR+6*
DIK	REMXPAR+1~, REMXPAR+7*
DUZ	ENV+2
ENT	REMXPAR+1~, REMXPAR+4*, REMXPAR+5, REMXPAR+6
FDA	RENXPAR+1~
FDA(	RENXPAR+6*
FIL	RENXPAR+1~, RENXPAR+2*, RENXPAR+3, RENXPAR+4, RENXPAR+6
IEN	RENXPAR+1~, RENXPAR+4*, RENXPAR+5, RENXPAR+6
INT	REMXPAR+1~, REMXPAR+5*, REMXPAR+6
IOM	ENV+3, ENV+4
NEW	RENXPAR~, RENXPAR+3, RENXPAR+6
OLD	RENXPAR~, RENXPAR+4
PAR	REMXPAR~, REMXPAR+2
PIEN	REMXPAR+1~, REMXPAR+2*, REMXPAR+3, REMXPAR+4, REMXPAR+5, REMXPAR+6
QUIT	MES~, MES+2
RX	FIXCMF+1~, FIXCMF+4*, FIXCMF+5, FIXCMF+8
>> ST	FIXCMF+5*, FIXCMF+7
TXT	MES~, MES+1
U	FIXCMF+5
VIEN	REMXPAR+1~
>> X	ENV+2*, ENV+3
>> XPDABORT	ENV+6, ENV+9, MES+2
>> XPDDIQ("XPZ1"	ENV+5*
>> XPDDIQ("XPZ2"	ENV+5*

Name	Field # of Occurrence
$T(	ENV+4

Information