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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RAPERR

Package: Radiology Nuclear Medicine

Routine: RAPERR


Information

RAPERR ;HISC/CAH-Print Rad/NM Procedures with missing/invalid CPT/Stop codes ;8/30/96 11:00

Source Information

Source file <RAPERR.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Radiology Nuclear Medicine 6 ($$ACTCODE,$$NAMCODE)^RACPTMSC  ISTOP^RAPERR1  ZIS^RAUTL  $$IMG^RAUTL12  STOPCHK^RAUTL9  $$PCE^RAWORK  
Kernel 2 ^%ZISC  ($$DT,$$FMTE,$$HTE)^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RA INVALID CPT/STOP  RAMAIN2  RAPERR1  

Entry Points

Name Comments DBIA/ICR reference
PRT
RATYPE
BADSTOP
HDG
START
KILL ; Kill and quit
EN1 ; Start processing
LINE
TOTAL
CK700 ;Check for a 700-level stop code without any other stop code
FIND
ZTSAVE ; Save off variable for the queued process.

External References

Name Field # of Occurrence
^%ZISC KILL+1
^DIR START+6, HDG
$$ACTCODE^RACPTMSC FIND+21
$$NAMCODE^RACPTMSC FIND+20
ISTOP^RAPERR1 TOTAL+14
ZIS^RAUTL START+12
$$IMG^RAUTL12 START+8
STOPCHK^RAUTL9 HDG+5
$$PCE^RAWORK FIND+22, FIND+24, TOTAL+10, TOTAL+14
$$DT^XLFDT START+10
$$FMTE^XLFDT FIND+25
$$HTE^XLFDT HDG+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"This option prints a list of Radiology/Nuclear Medicine Procedures"
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,"with missing or invalid CPT's and DSS ID's, and Imaging Locations"
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,"pointing to Hospital Locations with inappropriate set-up parameters."
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"Broad, parent and inactive procedures are not required to have codes."
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"To be valid, DSS ID's must be in the Imaging Stop Codes file 71.5;"
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"CPT's must be nationally active.",!!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !!,RAPROCN_" "_$P(RAP,U,2)
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !?5,$P(RAP,U,3)
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !?5,$G(^TMP($J,"RAP",RAPROCN,RAPROC,RAI))
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDG+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDG+1
Function Call: WRITE
  • Prompt: ?16,"RADIOLOGY/NUCLEAR MEDICINE INVALID CPT AND STOP CODES"
  • Line Location: HDG+3
Function Call: WRITE
  • Prompt: !,"Run Date: ",$$HTE^XLFDT($H),?70,"Page: ",RAPAGE
  • Line Location: HDG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !!,A
  • Line Location: TOTAL+2
Function Call: WRITE
  • Prompt: !!,A
  • Line Location: TOTAL+4
Function Call: WRITE
  • Prompt: !?($X+$L(A))
  • Condition for execution: $X>(IOM-($L(B)))
  • Line Location: TOTAL+5
Function Call: WRITE
  • Prompt: B,?($X+3)
  • Line Location: TOTAL+5
Function Call: WRITE
  • Prompt: !!,"TOTAL INVALID CPT CODES: ",RAICTR
  • Line Location: TOTAL+7
Function Call: WRITE
  • Prompt: !,"TOTAL MISSING CPT CODES: ",RANOCTR
  • Line Location: TOTAL+8
Function Call: WRITE
  • Prompt: !,"TOTAL BROKEN POINTERS TO CPT CODES: ",RABCTR
  • Line Location: TOTAL+9
Function Call: WRITE
  • Prompt: !,"TOTAL INVALID STOP CODES: ",RAISTP,!,"TOTAL MISSING STOP CODES: ",RANOSTP
  • Line Location: TOTAL+10
Function Call: WRITE
  • Prompt: !,"TOTAL PARENT PROCEDURES W/O DESCENDENTS: ",RANODESC
  • Line Location: TOTAL+11
Function Call: WRITE
  • Prompt: !,"TOTAL SERIES AND/OR DETAILED PROCEDURES W/O AMIS CODES: ",RANOAMIS
  • Line Location: TOTAL+12
Function Call: WRITE
  • Prompt: !!,"Note: Remember to review the entries in the Imaging Stop Codes file #71.5",!,"every year in October to make sure they agree with VA HQ rules. If the entries",!,"in file 71.5 are not accurate, this report will not be accurate.",!
  • Line Location: TOTAL+13
Routine Call
  • DIR
  • Line Location:
    • START+6
    • HDG

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] FIND+23, BADSTOP+1, BADSTOP+2, CK700+1
^RA(79.2 - [#79.2] FIND+5, RATYPE+1
^RAMIS(71 - [#71] FIND+2, FIND+3, FIND+8, FIND+10, FIND+11, FIND+15, FIND+22, FIND+23, FIND+25, CK700+1
^RAMIS(71.5 - [#71.5] FIND+23
^TMP($J START+8!, EN1+1!, FIND+7, FIND+26*, PRT+1, PRT+3, PRT+4, TOTAL+3, KILL+1!

Label References

Name Line Occurrences
BADSTOP FIND+23
CK700 FIND+23
FIND EN1+3
HDG PRT, PRT+5, TOTAL+1, TOTAL+4
KILL START+6, START+9, START+12, EN1+3
PRT EN1+3
RATYPE FIND+26
TOTAL EN1+3
ZTSAVE START+12

Naked Globals

Name Field # of Occurrence
^( PRT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A TOTAL+2~*, TOTAL+4, TOTAL+5
B TOTAL+2~*, TOTAL+3*, TOTAL+5
DIR START+6!, HDG!, KILL+2!
DIR("A" START+6*
DIR("B" START+6*
DIR(0 START+6*, HDG*
DIROUT KILL+2!
DIRUT KILL+2!
DISYS KILL+6!
DT START+10, FIND+20, FIND+21
DTOUT START+6, HDG, KILL+2!
DUOUT START+6, HDG, KILL+2!
I KILL+6!, ZTSAVE+1~*
IO EN1+1
IOF HDG+1
IOM TOTAL+5
IOSL PRT+5, TOTAL+1, TOTAL+4
IOST HDG, HDG+1
POP KILL+2!
RA44 KILL+6!
RA71 KILL+2!
RA71(0 FIND+3*, FIND+4
RA71(12 FIND+4*, FIND+5, FIND+7
RA791 KILL+6!
RABCTR FIND*, FIND+20*, TOTAL+9, KILL+2!
RACPT FIND+19*, FIND+20, FIND+21, KILL+2!
RACTR FIND+22*, FIND+23*, FIND+24, KILL+2!
RADT START+10*, FIND+9, FIND+25, KILL+2!
RAI PRT+3*, PRT+4, KILL+2!
RAICTR FIND*, FIND+21*, TOTAL+7, KILL+3!
RAILOC KILL+6!
RAINA FIND+8*, FIND+9, KILL+3!
RAINACT FIND+25*, KILL+3!
RAISTP FIND*, BADSTOP+3*, TOTAL+10, KILL+3!
RAITYPE FIND+5*, FIND+6*, FIND+7, KILL+3!
RALL START+7*, FIND+9, KILL+3!
RAMES KILL+3!
RAMSG FIND+10!, FIND+25, FIND+26, KILL+3!
RAMSG( FIND+26
RAMSG("INACT" FIND+25*, FIND+26
RAMSG("TYPE" FIND+26, RATYPE*, RATYPE+1*
RAMSG(1 FIND+19*
RAMSG(2 FIND+20*
RAMSG(3 FIND+21*
RAMSG(4 BADSTOP*, BADSTOP+1*, BADSTOP+2*
RAMSG(5 FIND+24*
RAMSG(7 CK700+1*
RAMSG(99 FIND+13*
RAMSG(999 FIND+17*
RANOAMIS FIND+1*, FIND+16*, TOTAL+12, KILL+3!
RANOCTR FIND*, FIND+19*, TOTAL+8, KILL+3!
RANODESC FIND+1*, FIND+12*, TOTAL+11, KILL+4!
RANOSTP FIND*, FIND+24*, TOTAL+10, KILL+4!
RAOUT FIND+2, PRT+1, PRT+3, PRT+6, HDG*, HDG+5*, TOTAL, TOTAL+1, TOTAL+3, TOTAL+4
, KILL+4!
RAP PRT+1*, PRT+2, KILL+4!
RAPAGE FIND*, HDG, HDG+1, HDG+2*, HDG+4, KILL+4!
RAPOP START+12, KILL+4!
RAPROC FIND*, FIND+2*, FIND+3, FIND+8, FIND+10, FIND+11, FIND+15, FIND+22, FIND+23, FIND+25
, FIND+26, CK700+1, PRT+1*, PRT+3, PRT+4, KILL+4!
RAPROCN FIND*, FIND+2*, FIND+26, PRT+1*, PRT+2, PRT+3, PRT+4, KILL+4!
RASTP FIND+23*, KILL+4!
RATYPE KILL+4!
RAX FIND+10*, FIND+11, FIND+15, FIND+19, FIND+24, RATYPE, RATYPE+1, KILL+5!
RAXX START+8*, START+9, KILL+5!
U FIND*, FIND+11, FIND+15, FIND+19, FIND+21, FIND+23, FIND+24, FIND+26, BADSTOP+1, BADSTOP+2
, CK700+1, PRT+2, RATYPE, RATYPE+1
X FIND+23*, FIND+26*, BADSTOP+1, BADSTOP+2, CK700+1, KILL+5!
X1 FIND+20*, FIND+21, FIND+25*, KILL+5!
X2 RATYPE*, RATYPE+1*, KILL+5!
Y START+7, KILL+5!
ZTDESC START+11*, START+12!, KILL+5!
>> ZTQUEUED EN1+2, HDG+5
>> ZTREQ EN1+2*
ZTRTN START+11*, START+12!, KILL+5!
ZTSAVE KILL+5!
ZTSAVE( ZTSAVE+1*
>> ZTSTOP HDG+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All