Routine: ACPT219

Information

ACPT219 ;IHS/OIT/NKD - ACPT V2.19 CPT ENVIRONMENT CHECKER 12/17/18 ;

Source Information

Source file <ACPT219.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
CPT Files	2	UPDATE^ACPTD (CATUPD,RSLT)^ACPTUTL
Kernel	2	($$CJ,$$REPEAT)^XLFSTR $$VERSION^XPDUTL
VA Fileman	2	UPDATE^DIE IXALL^DIK

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; EP - PRE-INSTALL ; IF ANNUAL UPDATE, RUN PRE-INSTALL UTILITIES
REINDEX	; COMPLETE RE-INDEX OF FILES 81, 81.3, AND 81.1
CPTCINA	; CORRECT IMPROPERLY INACTIVATED CPT CODES ; Examines the CPT file and inactivates any code that has an Active Date (8) < Inactive Date (7) without an Inactive Flag (5)
GCHK()	; Check transport global version
VCHK(ACPTPRE,ACPTVER,ACPTPAT)	; Check patch level
DRPT	; DUPLICATE REPORT - DISPLAY ACTIVE DUPLICATE CODES
LAST(PKG,VER)	; EP - returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released
DISP(ACPTPRE,ACPTVER,ACPTPAT,ACPTV,ACPTP,ACPTR)	; Display requirement checking results
SORRY(X)	;
POST	; EP - POST-INSTALL ; CALCULATE DEFAULT EFFECTIVE DATE BASED ON VERSION/PATCH
ARPT(ACPTT)

External References

Name	Field # of Occurrence
UPDATE^ACPTD	POST+4
CATUPD^ACPTUTL	POST+12
RSLT^ACPTUTL	POST+7, REINDEX+2, REINDEX+7, REINDEX+12, CPTCINA+2, DRPT+2, DRPT+8, ARPT+2, ARPT+8, ARPT+9
UPDATE^DIE	CPTCINA+13
IXALL^DIK	REINDEX+6, REINDEX+11, REINDEX+16
$$CJ^XLFSTR	ACPT219+8, ACPT219+11, ACPT219+21, ACPT219+23, GCHK+3, GCHK+4, SORRY+3, DISP+6
$$REPEAT^XLFSTR	POST+7, REINDEX+2, REINDEX+7, REINDEX+12, CPTCINA+2, DRPT+2, ARPT+2
$$VERSION^XPDUTL	VCHK+2, LAST+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: ACPT219+3
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: ACPT219+5
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM) Line Location: ACPT219+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Checking Environment for "_$P($T(+2),";",4)_" V "_ACPTV_$S(ACPTP]"":" Patch "_ACPTP,1:"")_".",IOM),! Line Location: ACPT219+11
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("FIX IT! Before Proceeding.",IOM),!!,7,7,*7 Line Location: ACPT219+21
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("ENVIRONMENT OK.",IOM) Line Location: ACPT219+23
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Transport global not installed or lacks version number! *FIX IT*",IOM) Line Location: GCHK+3
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(ACPTS,IOM) Line Location: DISP+6
Function Call: WRITE	Prompt: "." Line Location: CPTCINA+15
Routine Call	DIE Line Location: CPTCINA+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICPT - [#81]	Classic Fileman Calls
^DIC(81.1 - [#81.1]	Classic Fileman Calls
^DIC(81.3 - [#81.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACPT(	ARPT+1, ARPT+4
^ACPT("CAT"	POST+12, POST+13!
^ACPT("CPT"	POST+13!
^ACPT("HCPCS"	POST+13!
^ACPT(0	GCHK+2, POST+13!
^DIC(81.1 - [#81.1]	REINDEX+14!
^DIC(81.3 - [#81.3]	REINDEX+9!
^DIC(9.4 - [#9.4]	LAST+4, LAST+5, LAST+7, LAST+8, LAST+9
^ICPT - [#81]	REINDEX+4!, CPTCINA+7, CPTCINA+8, CPTCINA+9, CPTCINA+10, DRPT+5, ARPT+6
^ICPT("BA"	CPTCINA+4, CPTCINA+6, DRPT+3, DRPT+4, ARPT+3, ARPT+5
^VA(200 - [#200]	ACPT219+7

Label References

Name	Line Occurrences
$$GCHK	ACPT219+19
$$LAST	VCHK+5
$$VCHK	ACPT219+13, ACPT219+14, ACPT219+15, ACPT219+16, ACPT219+17
ARPT	POST+9, POST+10
CPTCINA	PRE+4
DISP	VCHK+3, VCHK+4, VCHK+6, VCHK+7
DRPT	POST+8
SORRY	ACPT219+3, ACPT219+5

Naked Globals

Name	Field # of Occurrence
^(0	LAST+8, LAST+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACPTC	CPTCINA+3~, CPTCINA+4, CPTCINA+5, CPTCINA+6, DRPT+1~, DRPT+3, DRPT+4, DRPT+8, ARPT+1~, ARPT+3* , ARPT+4, ARPT+5, ARPT+7
ACPTCNT	CPTCINA+3~, CPTCINA+4, CPTCINA+14, CPTCINA+15
ACPTG	GCHK+2~*, GCHK+4, GCHK+5
ACPTI	CPTCINA+3~, CPTCINA+6, CPTCINA+7, CPTCINA+8, CPTCINA+9, CPTCINA+10, CPTCINA+12, DRPT+1~, DRPT+4, DRPT+5 , DRPT+6, ARPT+1~, ARPT+5*, ARPT+6
ACPTP	ACPT219+9~, ACPT219+10, ACPT219+11, VCHK+1~, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~ , DISP+4
ACPTPAT	VCHK~, VCHK+3, VCHK+4, VCHK+6, VCHK+7, DISP~, DISP+3
ACPTPRE	VCHK~, VCHK+2, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+3, DISP+4
ACPTR	DISP~, DISP+5, DRPT+1~, DRPT+4, DRPT+6, DRPT+7, DRPT+8, ARPT+1~, ARPT+7, ARPT+8 , ARPT+9
ACPTS	DISP+2~, DISP+3, DISP+4, DISP+5*, DISP+6
ACPTT	ARPT~, ARPT+1*, ARPT+2, ARPT+4, ARPT+6
ACPTV	ACPT219+9~, ACPT219+10, ACPT219+11, GCHK+2~, GCHK+3, GCHK+4, GCHK+5, VCHK+1~, VCHK+2*, VCHK+3 , VCHK+4, DISP~, DISP+4
ACPTVER	VCHK~, VCHK+3, VCHK+4, VCHK+5, VCHK+6, VCHK+7, DISP~, DISP+3
ACPTYR	POST+2~*
DA	REINDEX+1~, REINDEX+3!, REINDEX+8!, REINDEX+13!
DIFQ	SORRY+1!, VCHK+3!, VCHK+6!
DIK	REINDEX+1~, REINDEX+3!, REINDEX+5, REINDEX+8!, REINDEX+10, REINDEX+13!, REINDEX+15*
DUZ	ACPT219+3, ACPT219+7
DUZ(0	ACPT219+5
FDA	CPTCINA+3~, CPTCINA+11!
FDA(81	CPTCINA+12*
IND	REINDEX+1~, REINDEX+4, REINDEX+9, REINDEX+14*
IOM	ACPT219+8, ACPT219+11, ACPT219+21, ACPT219+23, GCHK+3, GCHK+4, SORRY+3, DISP+6
LATEST	LAST+2~, LAST+6, LAST+8, LAST+9, LAST+10
PATCH	LAST+2~, LAST+6, LAST+8, LAST+9*, LAST+10
PKG	LAST~, LAST+3, LAST+4
PKGIEN	LAST+2~, LAST+4*, LAST+5, LAST+7, LAST+8, LAST+9
SUBIEN	LAST+2~, LAST+6, LAST+7, LAST+8, LAST+9
U	ACPT219+7, LAST+8, LAST+9, LAST+10, CPTCINA+8, CPTCINA+9, CPTCINA+10, DRPT+5, DRPT+6, DRPT+7 , DRPT+8, ARPT+6
VER	LAST~, LAST+3*, LAST+5
VERIEN	LAST+2~, LAST+5*, LAST+7, LAST+8, LAST+9
X	ACPT219+7*, ACPT219+8, SORRY~, SORRY+2
>> XPDENV	GCHK+1
>> XPDNM	GCHK+2
>> XPDQUIT	ACPT219+13, ACPT219+14, ACPT219+15, ACPT219+16, ACPT219+17, ACPT219+19, ACPT219+21, SORRY+2*

Customize PDF page

Package: CPT Files

Routine: ACPT219

Call Graph Total: 6