Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ICPT619

Package: CPT HCPCS Codes

Routine: ICPT619


Information

ICPT619 ;SLC/KER - ICPT Env. Check ; 04/18/2004

Source Information

Source file <ICPT619.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 3 HOME^%ZIS  $$DT^XLFDT  ($$PATCH,BMES,MES)^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
ENV ; Environment Check
ABRT ; Abort - All or nothing
OK ; Environment is Ok
PATCHES(X)
DATA(X) ; Check Required Data
VAR(X) ; Check Variables
CPD(X) ; Check Current Patched Data is installed
BM(X) ; Blank Line with Message
M(X) ; Message

External References

Name Field # of Occurrence
HOME^%ZIS VAR+2
$$DT^XLFDT VAR+2
$$PATCH^XPDUTL PATCHES+4
BMES^XPDUTL BM+1
MES^XPDUTL M+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," ICPT/HCPCS Code Text Descriptors (CTD)",!
  • Line Location: ENV+2
Function Call: WRITE
  • Prompt: !," Checking for ",PATCH
  • Line Location: PATCHES+4
Function Call: WRITE
  • Prompt: " - installed"
  • Line Location: PATCHES+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PATCHES+5
Function Call: WRITE
  • Prompt: !," Checking for ICD installed data"
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: " - Installed"
  • Condition for execution: +CPD>0
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: " - Ready for installation"
  • Line Location: DATA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATA+12
Function Call: WRITE
  • Prompt: " - Data not required"
  • Line Location: DATA+13
Function Call: WRITE
  • Prompt: !," Checking required environment variables"
  • Line Location: VAR+1
Function Call: WRITE
  • Prompt: " - ok"
  • Line Location: VAR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: VAR+5
Routine Call
  • %ZIS
  • Line Location:
    • VAR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(81.3 - [#81.3] CPD+2, CPD+3
^ICPT("ADS" CPD+2
^ICPT("AST" CPD+2
^ICPT(100 CPD+3
^LEXM(81 DATA+1

Label References

Name Line Occurrences
$$CPD DATA+1
$$DATA ENV+3
$$PATCHES ENV+3
$$VAR ENV+3
ABRT ENV+3
BM OK+1, PATCHES+5, DATA+7, DATA+10, VAR+5
M OK+1, DATA+8, DATA+11
OK ENV+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABORT ENV+1~, ENV+2*, ENV+3*, PATCHES+1, PATCHES+3, PATCHES+5*, PATCHES+6, DATA+1, DATA+12*, DATA+14
, VAR+2, VAR+5*, VAR+6
BUILD ENV+1~, ENV+2*, ENV+3, OK+1, DATA+1~*, DATA+4, DATA+5, DATA+8, DATA+11, DATA+13
BUILDI DATA+1~*, DATA+4, DATA+5, DATA+6, DATA+9, DATA+11
CPD DATA+1~*, DATA+2, DATA+3
DT VAR+2*
DUZ VAR+3, VAR+4
DUZ(0 VAR+3, VAR+4
I ENV+1~, PATCHES+1~, PATCHES+3*
INS PATCHES+1~, PATCHES+4*, PATCHES+5, CPD+1~*, CPD+2*, CPD+3*, CPD+4
PATCH ENV+1~, PATCHES+3*, PATCHES+4, PATCHES+5
PATCHES ENV+1~, PATCHES+1~, PATCHES+2*, PATCHES+3
U VAR+2*
X PATCHES~, DATA~, DATA+1, VAR~, CPD~, CPD+4*, BM~, BM+1, M~, M+1
XPDABORT ENV+2*, ENV+4!, ABRT+1*
>> XPDENV OK+1, DATA+1
>> XPDQUIT ABRT+1*
>> XPDQUIT("CTD UTIL 1.0" , ABRT+3*
>> XPDQUIT("ICD*18.0*12" ABRT+2*
>> XPDQUIT("ICPT*6.0*19" ABRT+2*
>> XPDQUIT("LEX*2.0*30" ABRT+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All