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: SROACC

Package: Surgery

Routine: SROACC


Information

SROACC ;B'HAM ISC/MAM - CPT ACCURACY ; [ 09/22/98 11:19 AM ]

Source Information

Source file <SROACC.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Surgery 6 (MSP,SPEC)^SROACC0  ^SROACC5  ^SROACC6  ^SROSTOP  DATE^SROUTL  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
DRG Grouper 1 $$CPT^ICPTCOD  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SR CPT ACCURACY  SROACC5  SROACC6  

Entry Points

Name Comments DBIA/ICR reference
ALL
EN ; entry when queued
END
HELP
BEG
DEV
MSP
START
ASK
CTD()
SPEC
HDR ; print heading

External References

Name Field # of Occurrence
^%ZIS DEV+1
^%ZISC END+2
^%ZTLOAD DEV+2
^DIC ALL+4
$$CPT^ICPTCOD CTD+3
MSP^SROACC0 MSP+3
SPEC^SROACC0 SPEC+3
^SROACC5 EN+3
^SROACC6 EN+4
^SROSTOP HDR+1
DATE^SROUTL START
^SRSKILL END+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Report to Check CPT Coding Accuracy"
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: @IOF,!,"Print the Report of CPT Coding Accuracy for which cases ?",!!,"1. O.R. Surgical Procedures",!,"2. Non-O.R. Procedures",!,"3. Both O.R. Surgical Procedures and Non-O.R. Procedures (All Specialties)"
  • Line Location: ASK+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+1
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: ALL+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to print the report for all codes, or 'NO'",!,"to select a specific CPT Code.",!!,"Press RETURN to continue "
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ALL+4
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"Enter '1' or press <RET> to include only OR surgical procedure cases on the",!,"report. Enter '2' to include only non-OR procedure cases on the report."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"Enter '3' to include cases for both OR surgical procedures and non-OR",!,"procedures on the report."
  • Line Location: HELP+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HELP+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?126,"PAGE",!,?58,"SURGICAL SERVICE",?126,$J(SRPAGE,4),!,?51,"REPORT OF CPT CODING ACCURACY",?100,"REVIEWED BY:"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,"DATE REVIEWED:"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$S(SRFLG=1:"O.R. SURGICAL PROCEDURES",SRFLG=2:"NON-O.R. PROCEDURES",1:"O.R. SURGICAL PROCEDURES AND NON-O.R. PROCEDURES")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,?1,"PROCEDURE DATE",?20,"PATIENT",?60,"PROCEDURES",?111,"SURGEON/PROVIDER",!,?3,"CASE #",?22,"ID#",?111,"ATTEND SURG/PROV",!,?20,"SPECIALTY"
  • Line Location: HDR+6
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: SPEC+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to sort the report by specialty, or 'NO'",!,"to sort the report by date only.",!!,"Press RETURN to continue "
  • Line Location: SPEC+2
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: MSP+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: MSP+2
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to sort the report by specialty, or 'NO'",!,"to sort the report by date only.",!!,"Press RETURN to continue "
  • Line Location: MSP+2
Routine Call
  • DIC
  • Line Location:
    • ALL+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+2
^TMP("SR" EN+1!, END!

Label References

Name Line Occurrences
ALL ALL+2
ASK ASK+2
DEV SPEC+4, MSP+4
END START, ASK+1, ASK+2, ALL, ALL+4, DEV+1, DEV+2, EN+3, SPEC, MSP
HELP ASK+2
MSP ALL+6, MSP+2
SPEC ALL+5, SPEC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1!*
%ZIS("A" DEV+1*
DIC ALL+4!*
DIC("A" ALL+4*
DIC("S" ALL+4*
DIC(0 ALL+4*
DT CTD+1
DTIME ASK+1, ALL, ALL+2, END+1, HELP+2, HDR+2, SPEC, SPEC+2, MSP, MSP+2
>> EDATE START, START+1, EN+2, CTD+2
>> EDATE1 START+1*
ICPTVDT CTD!, CTD+3*
IO EN+1
IO("Q" DEV+1!, DEV+2!
IOF BEG+1, ASK, END, END+2, HDR+3, SPEC, MSP
IOP DEV+1!
IOST END, END+1, HDR+2
POP DEV+1!
>> SDATE START, START+1, EN+2
>> SDATE1 START+1*
>> SRCPT ALL+3*, ALL+4*, EN+3
>> SRFLG BEG*, ASK+3*, ALL+5, ALL+6, HDR+5, MSP
SRFRTO EN+2~*, HDR+4
>> SRHALT HDR+1
>> SRHDR HDR+2, HDR+7*
>> SRINST EN+1*, HDR+3
>> SROK CTD+1*, CTD+3*, CTD+4
>> SRPAGE EN+1*, HDR+3, HDR+7*
SRSDATE CTD+1~*, CTD+2*, CTD+3
>> SRSITE("SITE" EN+1
>> SRSOUT BEG*, START, ASK+2, ALL*, ALL+4*, DEV+1*, EN+1*, END+1, HELP+2*, HDR+1*
, HDR+2*, SPEC*, MSP*
SRTN END+2!
>> SRYN ALL*, ALL+1*, ALL+2, ALL+4, SPEC*, SPEC+1*, SPEC+2, SPEC+3, MSP*, MSP+1*
, MSP+2, MSP+3
>> X ASK+1*, ASK+2*, ASK+3, ALL+2*, END+1*, HELP+2*, HDR+2*, SPEC+2*, MSP+2*
>> Y ALL+4, EN+2*, CTD+3
>> ZTDESC DEV+2*
>> ZTQUEUED END, HDR+1
>> ZTREQ END*
>> ZTRTN DEV+2*
>> ZTSAVE("EDATE*" DEV+2*
>> ZTSAVE("SDATE*" DEV+2*
>> ZTSAVE("SRCPT" DEV+2*
>> ZTSAVE("SRFLG" DEV+2*
>> ZTSAVE("SRSITE*" DEV+2*
>> ZTSTOP END
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All