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

Package: Surgery

Routine: SROACC0


Information

SROACC0 ;BIR/MAM - CPT ACCURACY SORT BY SPECIALTY ;05/13/99 2:33 PM

Source Information

Source file <SROACC0.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Surgery 5 ^SROACC1  ^SROACC2  ^SROACC3  ^SROACC4  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Surgery 7 SROACC  SROACC1  SROACC2  SROACC3  SROACC4  SROACC5  SROACC6  

Entry Points

Name Comments DBIA/ICR reference
DEV
EN ; entry when queued
END
HDR ; print heading
SPEC
MSP
OPER
OPERT ; patch SR*3*142 changes
OTHER ; other procedures
OTHERT ; other procedures - file #136
OMOD ; Other procedure CPT modifiers - file #136
PMOD ; principle procedure CPT modifiers - file #136
LOOP ; break CPT line greater than 50 characters

External References

Name Field # of Occurrence
^%ZIS DEV+1
^%ZISC END+2
^%ZTLOAD DEV+2
^DIC SPEC+3, MSP+4
$$CPT^ICPTCOD OPERT+1, OTHERT+1
$$MOD^ICPTMOD OMOD+3, PMOD+3
^SROACC1 EN+3
^SROACC2 EN+4
^SROACC3 EN+5
^SROACC4 EN+6
^SRSKILL END+2

Interaction Calls

Name Line Occurrences
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: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
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+2
Function Call: WRITE
  • Prompt: ?100,"DATE REVIEWED:"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO
  • 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"
  • Line Location: HDR+6
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SPEC+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to print the report for all specialties, or 'NO'",!,"to select a specific Surgical Specialty.",!!,"Press RETURN to continue "
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: SPEC+3
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: MSP+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MSP+3
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to print the report for all specialties, or 'NO'",!,"to select a specific Medical Specialty.",!!,"Press RETURN to continue "
  • Line Location: MSP+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: MSP+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • DIC
  • Line Location:
    • SPEC+3
    • MSP+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+2
^SRF - [#130] OPER, OPER+1, OTHER+1
^SRO(136 - [#136] OPERT+1, OPERT+2, OTHERT+1, OMOD+1, OMOD+2, OMOD+3, PMOD+1, PMOD+2, PMOD+3
^TMP("SR" EN+1!, END!

Label References

Name Line Occurrences
DEV SPEC+4, MSP, MSP+5
END DEV+1, DEV+2, EN+3, EN+4, EN+5, SPEC, SPEC+3, MSP+1, MSP+4
MSP MSP+3
OMOD OTHERT+1
OTHER OPER+1
OTHERT OPERT+2
PMOD OPERT+1
SPEC SPEC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1!*
%ZIS("A" DEV+1*
CPT OPER~, OPERT+1*, OTHERT+1*
DIC SPEC+3!*, MSP+4!*
DIC("A" SPEC+3*, MSP+4*
DIC("S" SPEC+3*
DIC(0 SPEC+3*, MSP+4*
DTIME END+1, HDR+1, SPEC, SPEC+2, MSP+1, MSP+3
>> EDATE EN+2
IO EN+1
IO("Q" DEV+1!, DEV+2!
IOF END, END+2, HDR+2
IOP DEV+1!
IOST END, END+1, HDR+1
>> LOOP LOOP+1*
>> M LOOP+1
>> MM LOOP+1*
>> MMM LOOP+1*
>> OTH OPER+1*, OPERT+2*, OTHER+1, OTHER+2*, OTHER+3, OTHERT+1, OMOD+1, OMOD+2, OMOD+3
POP DEV+1!
>> SDATE EN+2
SRCMOD OMOD+1~, OMOD+2*, OMOD+3*, OMOD+4, PMOD+1~, PMOD+2*, PMOD+3*, PMOD+4
SRCOMMA OMOD+1~, OMOD+2*, OMOD+4*, PMOD+1~, PMOD+2*, PMOD+4*
SRCPT EN+3, EN+4, EN+5, OPER~, OPERT+1*, OTHERT+1*
SRCPTT OPER!, OPERT+1*, OTHERT+1*, OMOD+2*, OMOD+4*, PMOD+2*, PMOD+4*, LOOP+1*
>> SRFLG HDR+5, MSP
SRFRTO EN+2~*, HDR+4
>> SRHDR HDR+1, HDR+7*
>> SRI OMOD+2*, OMOD+3, PMOD+2*, PMOD+3
>> SRINST EN+1*, HDR+2
>> SRLONG OTHER+1*, OTHERT+1*
>> SRM OMOD+3*, PMOD+3*
>> SROPER OPER*, OPER+1*, OTHER+2*, OTHER+3*
SROPERS OPER!, OTHER+1*, OTHER+2, OTHER+3
>> SROPT( LOOP+1*
>> SRPAGE EN+1*, HDR+2, HDR+7*
>> SRSITE("SITE" EN+1
>> SRSOUT DEV+1*, EN+1*, END+1, HDR+1*, SPEC*, SPEC+3*, MSP+1*, MSP+4*
>> SRSS EN+3, EN+4, EN+5, HDR+3, SPEC+3*, MSP*, MSP+4*
SRTN END+2!, OPER, OPER+1, OPERT+1, OPERT+2, OTHER+1, OTHERT+1, OMOD+1, OMOD+2, OMOD+3
, PMOD+1, PMOD+2, PMOD+3
>> SRX OPER*
>> SRYN SPEC*, SPEC+1*, SPEC+2, SPEC+3, MSP+1*, MSP+2*, MSP+3, MSP+4
X END+1*, HDR+1*, SPEC+2*, MSP+3*, OMOD+1~, PMOD+1~
>> Y EN+2*, SPEC+3, MSP+4
>> ZTDESC DEV+2*
>> ZTQUEUED END
>> 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*
>> ZTSAVE("SRSS" 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