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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRCAPPH4

Package: Lab Service

Routine: LRCAPPH4


Information

LRCAPPH4 ;DALOI/RSH/FHS-PRINT CPT CODES ;1-OCT-1998

Source Information

Source file <LRCAPPH4.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  
Lab Service 1 (EN,END)^LRCAPPH3  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRCAPCPTI  

Entry Points

Name Comments DBIA/ICR reference
EN ;
END ;
HDR ;
ACTIVE ;Search ^LAM( and find INVALID CPT CODES
CNTR
IO
ASK ;
DQ(LRNX) ;
; LRNODE= subscripted data storage array root
; ie ^TMP("LRCAPPH",$J OR X("LR"
; ^TMP("LRCAPPH",$J,0)="KERNEL DELETE DATE^REPORT DATE^REPORT NAME"

External References

Name Field # of Occurrence
^%ZIS ASK+4
^%ZISC ASK+8, END+3
^%ZTLOAD ASK+7
^DIR ASK+2, HDR+4
EN^LRCAPPH3 ACTIVE+2
END^LRCAPPH3 END+4
$$FMTE^XLFDT DQ+5, IO+5
$$NOW^XLFDT DQ+5
$$CJ^XLFSTR EN+3, EN+4, EN+5, EN+6, IO+12, END+1, CNTR, CNTR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,$$CJ^XLFSTR("This option will print CPT CODE that have inactive",IOM)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("date in the WKLD CODE(#64) ONLY",IOM)
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("It DOES NOT provide a inactive CPT code list from",IOM)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("the CPT (#81) file. ",IOM)
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ACTIVE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: IO+6
Function Call: WRITE
  • Prompt: !,@LRNODE
  • Line Location: IO+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(LRPTNM,IOM),!
  • Line Location: CNTR+0
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR(LRPDT_" Page: "_LRPAGE,IOM)
  • Line Location: CNTR+1
Function Call: WRITE
  • Prompt: !,LRLINE,!!
  • Line Location: CNTR+2
Routine Call
  • DIR
  • Line Location:
    • ASK+2
    • HDR+4
Routine Call
  • %ZIS
  • Line Location:
    • ASK+4

Label References

Name Line Occurrences
ACTIVE ASK+11
DQ ACTIVE+5
END ASK+3, ASK+5, ASK+6
HDR IO+7, IO+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASK+4!*
DIR ASK+1!, ASK+2!, END+6!, HDR+3~
DIR(0 ASK+1*, HDR+4*
DIRUT ASK+3, END+6!, HDR+5
>> DTOUT ASK+3
DUOUT ASK+3, END+6!
IO IO
IO("Q" ASK+6
IOF EN+3, END+2, HDR+6, HDR+7
IOM EN+3, EN+4, EN+5, EN+6, DQ+6, IO+12, END+1, CNTR, CNTR+1
ION ASK+7
IOSL IO+11
IOST END+2, HDR+2
>> LRACT ACTIVE+1*
>> LRDBUG END+5
LREND EN+1~, EN+2*, ACTIVE+1*, ACTIVE+4, DQ+4~, DQ+6*, IO+8, IO+9, IO+11, END+1
, END+8*, HDR+1, HDR+2, HDR+5*, HDR+6
LRION ASK+7*, ASK+9, ASK+10!
LRLINE DQ+6*, END+6!, CNTR+2
LRNODE DQ+7*, DQ+8*, DQ+9*, DQ+10, DQ+11, IO+1, IO+2, IO+8*, IO+10, END+6!
LRNX DQ~, DQ+7, DQ+8, IO+8
LRNXL DQ+7*, IO+8, END+6!
LRPAGE DQ+6*, END+6!, HDR+2, HDR+7*, CNTR+1
LRPDT DQ+5*, IO+4*, IO+5*, END+7!, CNTR+1
LRPTNM DQ+11*, IO+3*, END+7!, CNTR
LRREC IO+2*, IO+3, IO+4, END+6!
LRT END+7!
LRX END+6!
POP ASK+5, END+7!
U IO+3, IO+4
>> Y ASK+3
ZTDESC ASK+7*, END+7!
ZTIO ASK+7*, END+7!
>> ZTQUEUED DQ+5, IO+12
>> ZTREQ DQ+5*
ZTRTN ASK+7*, END+7!
ZTSAVE END+7!
>> ZTSK ASK+9, END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All