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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACHSCPTI

Package: Contract Health Management Information System

Routine: ACHSCPTI


Information

ACHSCPTI ; IHS/ITSC/TPF/PMF - FOR CHS CPT CODE DETAILED REPORT-HEADER SUBROUTINE ; JUL 10, 2008

Source Information

Source file <ACHSCPTI.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZISC  ($$FMTE,$$HTE)^XLFDT  $$REPEAT^XLFSTR  
Contract Health Management Information System 2 $$LOC^ACHS  ^ACHSCPTD  
DRG Grouper 1 $$CPT^ICPTCOD  
IHS VA Utilities 1 $$C^XBFUNC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSCPTH  

Entry Points

Name Comments DBIA/ICR reference
HEADER ;EP
NODATA ;EP
HEADER1 ;EP
END ;EP
NODATA1 ;EP

External References

Name Field # of Occurrence
^%ZISC NODATA1+8, END+2
$$LOC^ACHS HEADER+5
^ACHSCPTD NODATA1+9
^DIR NODATA+4, NODATA1+5
$$CPT^ICPTCOD HEADER1+3, HEADER1+5
$$C^XBFUNC NODATA+3
$$FMTE^XLFDT HEADER+11
$$HTE^XLFDT HEADER+3
$$REPEAT^XLFSTR HEADER+13, HEADER1+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"*",ACHSDATP
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?71,ACHSTIM,"*",!,"*User: ",ACHSUSR,?70,"Device:",IO,"*"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !?((80/2)-($L(X)/2)),X,!
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("*",80)
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !!?5,"CPT Code: ",ACHSCOD_" - "_ACHSCODP
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !?7,"Vendor: ",$S($D(^AUTTVNDR(ACHSVNDR,0)):$P($G(^AUTTVNDR(ACHSVNDR,0)),U),1:"NOT ON FILE")
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !?15,ACHSVADD,!?15,ACHSVCIT," ",?25,ACHSVST," ",?35,ACHSZIP
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !!,"# DOC #",?12,"SERV",?17,"DOS FROM-DOS TO",?35,"UNITS",?41,"MSG",?45,"TOOTH",?51,"SURF",?56,"$ CHG BLD $",?68,"$ CHG ALWD $"
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("~",80)
  • Line Location: HEADER1+10
Function Call: WRITE
  • Prompt: !!!,$$C^XBFUNC("NO DATA AVAILABLE FOR "_%_" FOR SPECIFIED DATE RANGE",80),!!!!
  • Line Location: NODATA+3
Function Call: WRITE
  • Prompt: !!!,"NO DATA AVAILABLE FOR SPECIFIED CRITERIA",!!!!
  • Line Location: NODATA1+4
Routine Call
  • DIR
  • Line Location:
    • NODATA+4
    • NODATA1+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTVNDR - [#9999999.11] HEADER1+7, NODATA+2
^ICPT - [#81] HEADER1+3, HEADER1+5
^TMP("ACHSCPT" NODATA+5!, NODATA1+7!

Label References

Name Line Occurrences
END NODATA+6, NODATA1+5
HEADER NODATA+1, NODATA1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NODATA+2*, NODATA+3
ACHSBEG HEADER+11, END+3!
ACHSCOD HEADER1+5*, HEADER1+6, END+3!
ACHSCODE HEADER1+3, HEADER1+5, END+3!
ACHSCODP HEADER1+3*, HEADER1+6, END+3!
ACHSDATP HEADER+3*, HEADER+4, END+3!
ACHSEND HEADER+11, END+3!
ACHSFACP END+4!
ACHSPAGE HEADER+2*, HEADER+10, END+4!
ACHSTIM HEADER+3*, HEADER+7, END+4!
ACHSUSR HEADER+7, END+4!
ACHSVADD HEADER1+8, END+4!
ACHSVCIT HEADER1+8, END+4!
ACHSVNDR HEADER1+7, NODATA+2, NODATA+5, END+4!
ACHSVST HEADER1+8, END+5!
ACHSZIP HEADER1+8, END+5!
DIR NODATA+4!, NODATA1+1!, NODATA1+6!
DIR(0 NODATA+4*, NODATA1+3*
I END+5!
IO HEADER+7
IO("S" NODATA+4, NODATA1+5, NODATA1+8
IOF HEADER+1
IOST NODATA+4, NODATA1+5
U HEADER1+3, HEADER1+5, HEADER1+7, NODATA+2
>> X HEADER+5*, HEADER+6, HEADER+9*, HEADER+10, HEADER+11*, HEADER+12
>> Y HEADER+3*, NODATA+4, NODATA1+5
>> ZTQUEUED NODATA1+9, END+1
>> ZTREQ END+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All