Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls