Routine: AMERENV1

Information

AMERENV1 ; IHS/OIT/SCR - ERS V3.0 ENVIRONMENT CHECK ROUTINE ;

Source Information

Source file <AMERENV1.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	HOME^%ZIS $$CJ^XLFSTR ($$LAST,$$VERSION,BMES,MES)^XPDUTL
VA Fileman	3	^%DT DT^DICRW ^DIR
Emergency Room	1	^AMER0
IHS VA Utilities	1	$$LOC^XBFUNC

Entry Points

Name	Comments	DBIA/ICR reference
KERNEL	; CHECK FOR KERNEL 8.0
PIMS	; CHECK FOR PIMS 5.3
LETSGO	; USER IDENTIFIED -- LET'S GO
TABMENU(MSG,TAB,TAIL)	; GENERIC MESSAGE OUTPUT
SORRY(MSG,MODE)	; MESSAGE TO DISPLAY WHEN SOMETHING GOES WRONG
AICD7	; CHECK FOR AICD 3.51 patch 7
USERID	; CHECK FOR USER ID
XMPATCH(CHK)
PRECHK	; EP
OKAY(MSG,TAB)	; MESSAGE WITH "OK" AT THE END
PCC	; CHECK FOR PCC DATA ENTRY 2.0
AG	; CHECK FOR AG 7.1 PATCH 2
FILEMAN	; CHECK FOR FILEMAN 22.0
BACKUPS	; CHECK TO CONFIRM BACKUPS HAVE BEEN DONE
AMER	; CHECK FOR AMER PATCH 2 ;IHS/OIT/GIS 8/23/11 patch 3
XMV8()	; CHECK FOR MAILMAN v8.0
ENVOK	; ENVIRONMENT OK
MM1006	; CHECK FOR MAILMAN patch 1006

External References

Name	Field # of Occurrence
^%DT	BACKUPS+9
HOME^%ZIS	USERID+5
^AMER0	AMER+2
DT^DICRW	USERID+5
^DIR	BACKUPS+6
$$LOC^XBFUNC	SORRY+14
$$CJ^XLFSTR	SORRY+14, SORRY+16, SORRY+18, SORRY+20, SORRY+21, SORRY+23
$$LAST^XPDUTL	AICD7+2, AG+2, AMER+3
$$VERSION^XPDUTL	PIMS+2, AICD7+1, AG+1, PCC+1, AMER+2, XMV8+2
BMES^XPDUTL	PRECHK+1, AMER+1, FILEMAN+2, KERNEL+2, PIMS+3, MM1006+6, AICD7+3, AG+3, PCC+2, AMER+1 , ENVOK+1, BACKUPS+1, BACKUPS+12, SORRY+27, XMV8+3
MES^XPDUTL	LETSGO+1, BACKUPS+13, OKAY+4, TABMENU+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: BACKUPS+2
Routine Call	%ZIS Line Location: USERID+5
Routine Call	DIR Line Location: BACKUPS+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BACKUPS+9
^DD("VERSION"	FILEMAN+1
^DIC(9.4 - [#9.4]	KERNEL+1, XMPATCH+2, XMPATCH+4, XMPATCH+6, XMPATCH+7
^VA(200 - [#200]	USERID+6, BACKUPS+10

Label References

Name	Line Occurrences
$$XMPATCH	MM1006+7
$$XMV8	MM1006+2
OKAY	AMER+3, FILEMAN+4, KERNEL+4, PIMS+6, MM1006+3, MM1006+5, MM1006+8, AICD7+7, AG+7, PCC+4 , AMER+5, XMV8+5
SORRY	USERID+1, USERID+3, USERID+7, AMER+2, FILEMAN+3, KERNEL+3, PIMS+4, PIMS+5, MM1006+7, MM1006+10 , AICD7+5, AICD7+6, AG+5, AG+6, PCC+3, AMER+4, BACKUPS+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	BACKUPS+9*
CHK	XMPATCH~, XMPATCH+7
DIFQ	SORRY+8!
>> DIR("A"	BACKUPS+5*
>> DIR("B"	BACKUPS+4*
>> DIR(0	BACKUPS+3*
>> DIRUT	BACKUPS+7
DUZ	USERID+1, USERID+6, BACKUPS+10
DUZ(0	USERID+3
>> LINE	PRECHK+4*
MESSAGE	SORRY+1~, SORRY+3, SORRY+6, SORRY+16, OKAY+1~, OKAY+3, OKAY+4, XMV8+4, XMV8+5, TABMENU+1~ , TABMENU+3, TABMENU+4, TABMENU+5
MODE	SORRY~, SORRY+2, SORRY+6
MSG	SORRY~, SORRY+18, OKAY~, OKAY+3, TABMENU~, TABMENU+3
OKGIS	XMPATCH+1~
OKPATCH	XMPATCH+1~, XMPATCH+3, XMPATCH+4, XMPATCH+6, XMPATCH+7, XMPATCH+8
PAT	XMPATCH+1~, XMPATCH+3, XMPATCH+4, XMPATCH+6, XMPATCH+7
PATCH	XMPATCH+1~, XMPATCH+5, XMPATCH+6, XMPATCH+7
STR	PRECHK+2~, BACKUPS+10, BACKUPS+11, BACKUPS+12, SORRY+10~, SORRY+27
STR(1	SORRY+11*
STR(10	SORRY+20*
STR(11	SORRY+21*
STR(12	SORRY+22*
STR(13	SORRY+23*
STR(14	SORRY+24*
STR(15	SORRY+25*
STR(16	SORRY+26*
STR(2	SORRY+12*, SORRY+25
STR(3	SORRY+13*
STR(4	SORRY+14*
STR(5	SORRY+15*
STR(6	SORRY+16*
STR(7	SORRY+17*
STR(8	SORRY+18*
STR(9	SORRY+19*
TAB	OKAY~, OKAY+2, OKAY+3, TABMENU~, TABMENU+2, TABMENU+3
TAIL	TABMENU~, TABMENU+4
U	USERID+6, BACKUPS+10
>> VERSION	MM1006+2*, MM1006+3, MM1006+4, MM1006+10
>> X	USERID+6, USERID+7, LETSGO+1, FILEMAN+1, FILEMAN+3, FILEMAN+4, KERNEL+1, KERNEL+3, KERNEL+4, PIMS+2 , PIMS+4, PIMS+5, PIMS+6, AICD7+1, AICD7+2, AICD7+4, AICD7+5, AICD7+6, AG+1, AG+2 , AG+4, AG+5, AG+6, PCC+1, PCC+3, AMER+2, AMER+3, AMER+4, BACKUPS+9, XMV8+2 , XMV8+4, XMV8+6
XMPTR	XMPATCH+1~, XMPATCH+2*, XMPATCH+4, XMPATCH+6, XMPATCH+7
>> XPDABORT	PRECHK+12, SORRY+4
>> XPDDIQ("XPO1"	PRECHK+11*
>> XPDDIQ("XPZ1"	PRECHK+9*
>> XPDDIQ("XPZ2"	PRECHK+9*
>> XPDNOQUE	PRECHK+5*
Y	AICD7+2~, AICD7+4, AICD7+5, AICD7+6, AG+2~, AG+4, AG+5, AG+6, AMER+3*, BACKUPS+7 , BACKUPS+11

Marked Items

Name	Field # of Occurrence
$T(	AMER+2

Customize PDF page

Package: Emergency Room

Routine: AMERENV1

Call Graph Total: 8