Routine: ACMPOST

Package	Total	Call Graph
Case Management System	4	^ACMBUL6 ^ACMBUL7 ^ACMPOST1 ^ACMTMPI
VA Fileman	4	(,IX)^DIC ^DIE (,ENALL,IXALL)^DIK EN1^DIP
Kernel	3	$$CJ^XLFSTR ($$ADD,ADD)^XPDMENU MES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
PRE6	;EP;FOR PATCH 6 PRE-INIT
DIP	;
INSTALLD(ACMSTAL)	;EP - Determine if patch ACMSTAL was installed, where ; ACMSTAL is the name of the INSTALL. E.g "AG6.011".
DELCMSL	;-- this subroutine will delete entries in the CMS LISTER ITEMS file before installing new ones
POST6	;EP;FOR PATCH 6
44	;EP;TO ADD THE 'AC' CROSS REFERENCE AND REINDEX ALL CMS PATIENT FILES
V200FAC	;Adds Facility to CMS PARAMETERS File if non-existent
EN1
V200FACD	;Delete Existing Non-DINUM entries CMS Parameters
CONV200	;Convert File 200 Entry Point
CONVRCL	;Convert Call Letters
PRTUSER	;Print Register Developer and Users
CONVRES	;
IMES	;
EN
P7	;-- patch 7 post init
P8	;EP - post init patch 8
ENV	;EP;IHS/CMI/TMJ PATCH 8 ; The following line prevents the "Disable Options..." and "Move ; Routines..." questions from being asked during the install.
OPT7	;-- add patch 7 options
SORRY(X)	;
PHN	;PHN FIX
PROV	;PRIMARY PROVIDER FIX
EXIT	;
CASEMGR	;CASE MANAGER FIX
V200CONV	;File 200 Conversion
V200DIE	;SET FLAG IN CMS PARAMETERS FILE TO INDICATE FILE 200 CONVERSION

External References

Name	Field # of Occurrence
^ACMBUL6	POST6+5
^ACMBUL7	P7+2
^ACMPOST1	CONVRCL+1
^ACMTMPI	EN
^DIC	V200FAC+1, INSTALLD+8, INSTALLD+11
IX^DIC	INSTALLD+5
^DIE	V200DIE+2, CASEMGR+6, PHN+6, PROV+6
^DIK	DELCMSL+4, PRE6+2, PRE6+4, PRE6+5, PRE6+6, PRE6+7, PRE6+8, PRE6+9, PRE6+10, PRE6+11 , PRE6+12, PRE6+13, PRE6+14, PRE6+15, PRE6+16, PRE6+17
ENALL^DIK	EN1+1
IXALL^DIK	44+9
EN1^DIP	DIP+1
$$CJ^XLFSTR	IMES+1, SORRY+4
$$ADD^XPDMENU	POST6+3, OPT7+4, OPT7+7
ADD^XPDMENU	P8+1, P8+2
MES^XPDUTL	IMES+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"All CMS SORT File Associated Print Templates Repointed",! Line Location: EN+1
Function Call: WRITE	Prompt: !!,"All Re-Index of All Cross Reference Completed",! Line Location: EN+3
Function Call: WRITE	Prompt: !!,"Restrict Field Conversion Complete",!! Line Location: EN+5
Function Call: WRITE	Prompt: !,"File 200 Conversion Complete",! Line Location: EN+7
Function Call: WRITE	Prompt: !!,"Recall Letter Conversion Complete",!! Line Location: EN+9
Function Call: WRITE	Prompt: !,"THE 'NAME OF REGISTER' CROSS REFERENCE WILL NOW BE SET.",!,"THIS MAY TAKE SEVERAL MINUTES. DO NOT INTERRUPT." Line Location: EN1+0
Function Call: WRITE	Prompt: !!,"Unable to create Facility Entry in CMS Parameters File",! Line Location: CONV200+1
Function Call: WRITE	Prompt: !,"CONVERSION DONE PREVIOUSLY",! Line Location: CONV200+2
Function Call: WRITE	Prompt: !!!,*7 Line Location: CONV200+3
Function Call: WRITE	Prompt: "It appears you have not upgraded the Case Management System to recognize",! Line Location: CONV200+4
Function Call: WRITE	Prompt: "File 200 - the",!,"*NEW PERSON FILE *",!! Line Location: CONV200+5
Function Call: WRITE	Prompt: "Let's do the upgrade now!",! Line Location: CONV200+6
Function Call: WRITE	Prompt: !!,"Error has ocurred..Cannot Add a Facility to the CMS Parameters File - Call Developer On This Error!!!" Line Location: V200FAC+2
Function Call: WRITE	Prompt: !!,"I will now set CMS Parameters Flag to Indicate File 200 Conversion has been completed",!! Line Location: V200DIE+1
Function Call: WRITE	Prompt: "I will now begin the Conversion Process",! Line Location: V200CONV+1
Function Call: WRITE	Prompt: !!,"ERROR - ERROR in Case Manager Record "_ACMDFN,! Line Location: CASEMGR+5
Function Call: WRITE	Prompt: !!,"ERROR - ERROR in PHN Record "_ACMDFN,! Line Location: PHN+5
Function Call: WRITE	Prompt: !!,"ERROR - ERROR in Provider Record "_ACMDFN,! Line Location: PROV+5
Function Call: WRITE	Prompt: !!!,?5,"**********************************************************************",! Line Location: PRTUSER+2
Function Call: WRITE	Prompt: !,?10,"YOU MAY NOW PRINT THE EXISTING REGISTER DEVELOPER",! Line Location: PRTUSER+3
Function Call: WRITE	Prompt: ?10,"AND ASSOCIATED AUTHORIZED USERS...",! Line Location: PRTUSER+3
Function Call: WRITE	Prompt: !!,?5,"Improved Register Security has been addressed by adding a new field",! Line Location: PRTUSER+4
Function Call: WRITE	Prompt: ?5,"to the CMS Register Type file name REGISTER CREATOR. ONLY the CREATOR",! Line Location: PRTUSER+5
Function Call: WRITE	Prompt: ?5,"of the Register may modify the existing Register Structure, or",! Line Location: PRTUSER+6
Function Call: WRITE	Prompt: ?5,"assign Authorized Users to that Register, or Delete that Register.",! Line Location: PRTUSER+7
Function Call: WRITE	Prompt: ?5,"Utilizing FileMan, one CREATOR for each existing Register must be entered.",! Line Location: PRTUSER+8
Function Call: WRITE	Prompt: ?5,"Once you have printed the following list of existing Register Developers",! Line Location: PRTUSER+9
Function Call: WRITE	Prompt: ?5,"and Authorized Users, refer to the Install Notes on how to add the",! Line Location: PRTUSER+10
Function Call: WRITE	Prompt: ?5,"REGISTER CREATOR to the CMS Register Type file.",!! Line Location: PRTUSER+11
Function Call: WRITE	Prompt: ?5,"**********************************************************************",!! Line Location: PRTUSER+12
Function Call: WRITE	Prompt: !!!,?10,"ALL POST INIT CONVERSIONS HAVE BEEN SUCCESSFULLY COMPLETED!!",! Line Location: EXIT+1
Function Call: WRITE	Prompt: ?32,"INSTALL NOW DONE!!",! Line Location: EXIT+2
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: V200DIE+2 CASEMGR+6 PHN+6 PROV+6
Routine Call	DIC Line Location: V200FAC+1 INSTALLD+8 INSTALLD+11
Routine Call	DIC Line Location: INSTALLD+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACM(40 - [#9002240]	Classic Fileman Calls
^ACM(41 - [#9002241]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls
^ACM(58.1 - [#9002258.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(	44+7!
^ACM(40 - [#9002240]	CONV200+1, CONV200+2
^ACM(41 - [#9002241]	V200CONV+2, CASEMGR+2, PHN+2, PROV+2
^ACM(41.1 - [#9002241.1]	CONVRES+3, CONVRES+4, CONVRES+5
^ACM(58.1 - [#9002258.1]	DELCMSL+2
^DD(	44+6
^DIC(16 - [#16]	CASEMGR+4, PHN+4, PROV+4

Label References

Name	Line Occurrences
$$INSTALLD	ENV+4, ENV+5
CASEMGR	V200CONV+3
CONV200	EN+6
CONVRCL	EN+8
CONVRES	EN+4
DIP	PRTUSER+13
EN1	EN+2
EXIT	EN+11
IMES	INSTALLD+6, INSTALLD+9, INSTALLD+13
OPT7	P7+1
PHN	V200CONV+4
PROV	V200CONV+5
PRTUSER	EN+13
SORRY	ENV+6
V200CONV	CONV200+7
V200DIE	CONV200+7
V200FAC	CONV200+1
V200FACD	CONV200+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACM	EN1+1*
ACMDA	DELCMSL+1~, DELCMSL+2*, DELCMSL+3
ACMDFN	V200CONV+2*, CASEMGR+2, CASEMGR+5, CASEMGR+6, PHN+2, PHN+5, PHN+6, PROV+2, PROV+5, PROV+6 , EXIT+3!
ACMNEWN	CASEMGR+4, CASEMGR+5, CASEMGR+6, PHN+4, PHN+5, PHN+6, PROV+4*, PROV+5, PROV+6, EXIT+3!
ACMOLDN	CASEMGR+2, CASEMGR+3, CASEMGR+4, PHN+2, PHN+3, PHN+4, PROV+2*, PROV+3, PROV+4, EXIT+3!
ACMSTAL	INSTALLD~, INSTALLD+3, INSTALLD+7, INSTALLD+10, IMES+1
ACMX	POST6+1, POST6+3, OPT7+1~, OPT7+2, OPT7+4, OPT7+5*, OPT7+7
ACMY	POST6+2, POST6+3, OPT7+1~, OPT7+3, OPT7+4, OPT7+6, OPT7+7, INSTALLD+2~, INSTALLD+12, INSTALLD+14
>> BY	PRTUSER+13*
>> D	INSTALLD+4*
DA	EN1+2!, V200DIE+2!, CASEMGR+6, PHN+6, PROV+6, DELCMSL+3, PRE6+2, PRE6+4, PRE6+5, PRE6+6* , PRE6+7, PRE6+8, PRE6+9, PRE6+10, PRE6+11, PRE6+12, PRE6+13, PRE6+14, PRE6+15, PRE6+16 , PRE6+17*
DA(1	PRE6+4, PRE6+5, PRE6+6, PRE6+7, PRE6+8, PRE6+9, PRE6+10, PRE6+11, PRE6+12, PRE6+13 , PRE6+14, PRE6+15, PRE6+16, PRE6+17
>> DIADD	V200FAC+1*
DIC	V200FAC+1, V200DIE+2!, PRTUSER+13, INSTALLD+2~, INSTALLD+4, INSTALLD+7, INSTALLD+10*
DIC(0	V200FAC+1, INSTALLD+4
DIE	V200DIE+2!, CASEMGR+6!, PHN+6!, PROV+6!
DIFQ	SORRY+1!
DIK	EN1+1, EN1+2!, DELCMSL+3, 44+8, PRE6+2, PRE6+4, PRE6+5, PRE6+6, PRE6+7, PRE6+8* , PRE6+9, PRE6+10, PRE6+11, PRE6+12, PRE6+13, PRE6+14, PRE6+15, PRE6+16, PRE6+17*
DIK(1	EN1+1*
>> DLAYGO	V200FAC+1*
DR	EN1+2!, V200DIE+2!, CASEMGR+6, PHN+6, PROV+6
DUZ(2	CONV200+1, CONV200+2, V200FAC+1, V200DIE+2
>> FLDS	PRTUSER+13*
>> FR	PRTUSER+13*
IOM	IMES+1, SORRY+4
>> TO	PRTUSER+13*
U	CONVRES+4, CONVRES+5, CONV200+2, CASEMGR+2, PHN+2, PROV+2
X	ENV+3, CONVRES+3, CONVRES+4, CONVRES+5, V200FAC+1, 44+3~, 44+7, POST6+3, OPT7+4, OPT7+7* , INSTALLD+2~, INSTALLD+3, INSTALLD+7, INSTALLD+10*, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	ENV+3*
>> XPDQUIT	SORRY+2, SORRY+3
XX1	44+3~, 44+4*, 44+5, 44+7, 44+8, 44+10
XX2	44+3~, 44+5*, 44+6
Y	V200FAC+2, INSTALLD+2~, INSTALLD+6, INSTALLD+7, INSTALLD+9, INSTALLD+10, INSTALLD+12, IMES+1
>> ZTQUEUED	44+2, 44+10

Customize PDF page

Package: Case Management System

Routine: ACMPOST

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: