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

Package: Surgery

Routine: SROPCE0A


Information

SROPCE0A ;BIR/ADM - PCE FILING STATUS REPORT, LONG FORM ;03/17/05

Source Information

Source file <SROPCE0A.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Surgery 4 CHK^SROPCE0  SCHED^SROPCE0B  ^SROSTOP  $$DIV^SROUTL0  
DRG Grouper 3 $$ICDDX^ICDCODE  $$CPT^ICPTCOD  $$MOD^ICPTMOD  
Registration 1 DEM^VADPT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROPCE0  

Entry Points

Name Comments DBIA/ICR reference
CASE ; print case info
HDR ; print heading
PROC ; get principal procedure and other case information
CPT ; get CPT codes
UTIL ; process case
DEM ; get patient demographic information
DX ; get diagnosis and ICD codes
LINE
TOTAL
MISS ; list fields missing data
PAGE

External References

Name Field # of Occurrence
^DIR PAGE+1
$$ICDDX^ICDCODE DX+2, DX+5
$$CPT^ICPTCOD CPT+2, CPT+10
$$MOD^ICPTMOD CPT+7, CPT+14
CHK^SROPCE0 UTIL+11, UTIL+13
SCHED^SROPCE0B CASE+1
^SROSTOP HDR+1
$$DIV^SROUTL0 SROPCE0A+6
DEM^VADPT DEM+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?28,"CPT",?36,"ICD",!,?20,"CASES",?27,"CODES",?35,"CODES",!,?13,"FILED: ",$J(CNT(1),5),?27,$J(SRFCPT,5),?35,$J(SRFICD,5)
  • Line Location: TOTAL+0
Function Call: WRITE
  • Prompt: !,?9,"NOT FILED: "_$J(CNT(4),5)
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: !,?9,"UNCERTAIN: "_$J(CNT(5),5)
  • Condition for execution: CNT(5)
  • Line Location: TOTAL+2
Function Call: WRITE
  • Prompt: !,?20,"-----",?27,"-----",?35,"-----",!,?13,"TOTAL: ",$J(CNT(6),5),?27,$J(SRFCPT+SRQCPT+SRUCPT,5),?35,$J(SRFICD+SRQICD+SRUICD,5)
  • Line Location: TOTAL+2
Function Call: WRITE
  • Prompt: !,?15,"No Missing Information"
  • Line Location: MISS+1
Function Call: WRITE
  • Prompt: !,?15,"Missing Information:"
  • Line Location: MISS+2
Function Call: WRITE
  • Prompt: !,$J(SRCT_". ",20),SRX(SRFLD)
  • Line Location: MISS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !,SRSDATE,?22,SRSNM,?49,SRPROV,?71,SRSSNM,?113,$S(SRSTATUS=1:"FILED",SRSTATUS=4:"NOT FILED",1:"UNCERTAIN")
  • Line Location: CASE+2
Function Call: WRITE
  • Prompt: !,SRTN,?22,SRSSN_" ("_SRAGE_")",?49,SRATT,?71,SRDIAG(1),?113,$E(SRSCHED,1,17),!
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: "NON-OR"
  • Condition for execution: (SRFLG=3)&SRNON
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: ?22,SRPROC(1)
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: ?71,SRDIAG(2)
  • Condition for execution: $D(SRDIAG(2))
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !,?22,SRPROC(2)
  • Condition for execution: $D(SRPROC(2))
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !,?22,SRPROC(3)
  • Condition for execution: $D(SRPROC(3))
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+5
Function Call: WRITE
  • Prompt: ?71,"ICD Diagnosis Code: "_SRDX(SRI)
  • Condition for execution: $D(SRDX(SRI))
  • Line Location: CASE+5
Function Call: WRITE
  • Prompt: ?1,SRCPT(SRI)
  • Line Location: CASE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(SRINST)\2),SRINST
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(SRRPT)\2),SRRPT,?(IOM-10),$J("PAGE "_SRPAGE,9),!,?(IOM-$L(SRTITLE)\2),SRTITLE,!,?(IOM-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(SRPRINT)\2),SRPRINT
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"DATE OF "_$S(SRFLG=1:"OPERATION",SRFLG=2:"PROCEDURE",1:"OP/PROCEDURE"),?22,"PATIENT NAME",?49,$S(SRFLG=1:"SURGEON",SRFLG=2:"PROVIDER",1:"SURGEON/PROVIDER"),?71,"SPECIALTY",?113,"PCE FILING STATUS"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"CASE #",?22,"PATIENT ID (AGE)",?49,"ATTENDING",?71,"PRINCIPAL "_$S(SRFLG=1:"POST-OP ",1:"")_"DIAGNOSIS",?113,"SCHED STATUS",!,?22,"PRINCIPAL PROCEDURE"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+5
Routine Call
  • DIR
  • Line Location:
    • PAGE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DEM+1
^ECC(723 UTIL+10
^SRF - [#130] SROPCE0A+6, UTIL+1, UTIL+4, UTIL+5, UTIL+6, UTIL+7, UTIL+9, UTIL+12, DEM+1, PROC+1
, PROC+4, PROC+8, PROC+9, CPT+2, CPT+7, CPT+10, CPT+14, DX+2, DX+5
^SRF("AC" SROPCE0A+6
^SRO(133 - [#133] UTIL+1, UTIL+3
^SRO(136 - [#136] CPT+1, CPT+4, CPT+6, CPT+7, CPT+9, CPT+11, CPT+13, CPT+14, DX+1, DX+4
^SRO(137.45 - [#137.45] UTIL+10
^VA(200 - [#200] PROC+8, PROC+9

Label References

Name Line Occurrences
CASE UTIL+11, UTIL+12, UTIL+13
DEM CASE+1
HDR SROPCE0A+6, PAGE
LINE UTIL+12, MISS+1
MISS UTIL+11, UTIL+13
PAGE TOTAL, MISS+2, CASE+1, CASE+5
TOTAL SROPCE0A+7
UTIL SROPCE0A+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT( TOTAL+1
>> CNT(1 TOTAL, UTIL+12*
>> CNT(4 TOTAL+1, UTIL+13*
>> CNT(5 TOTAL+2, UTIL+11*
>> CNT(6 TOTAL+1*, TOTAL+2
>> DFN DEM+1*
DIR PAGE+1!
DIR(0 PAGE+1*
>> DTOUT PAGE+1
>> DUOUT PAGE+1
>> I TOTAL+1*, LINE*, PROC+3*, PROC+6*, HDR+5*
IOF HDR+2
IOM LINE, HDR+2, HDR+5
IOSL TOTAL, MISS+2, CASE+1, CASE+5
IOST PAGE, HDR+2
>> J PROC+3*, PROC+6*
>> K PROC+2*, PROC+3*, PROC+5*, PROC+6*
>> SR(0 DEM+1*
>> SRAGE CASE+3, DEM+1*
>> SRATT CASE+3, PROC+8*, PROC+9*, PROC+11*
SRCPT CPT+1!
SRCPT( CASE+5, CASE+6*, CPT+8*, CPT+10*, CPT+15*
SRCPT(1 CPT+2*
>> SRCT MISS+2*
SRDIAG PROC+4!
SRDIAG( PROC+5*, PROC+6*
SRDIAG(1 CASE+3, PROC+4*, PROC+7*
SRDIAG(2 CASE+4
>> SRDIV UTIL+1*, UTIL+2
SRDX DX+1!
SRDX( CASE+5, CASE+6, DX+5*
SRDX(1 DX+2*
>> SRFCPT SROPCE0A+5*, TOTAL, TOTAL+2, CPT+3*, CPT+16*
>> SRFICD SROPCE0A+5*, TOTAL, TOTAL+2, DX+3*, DX+6*
>> SRFLD MISS+1*, MISS+2*
>> SRFLG UTIL+6, UTIL+7, UTIL+8, CASE+4, HDR+3, HDR+4
>> SRFRTO HDR+2
>> SRHALT HDR+1
>> SRHDR PAGE, HDR+5*
SRI CASE+5*, CASE+6, CPT+5~, CPT+6*, CPT+7, CPT+12~, CPT+13*, CPT+14
SRICPT CPT+1~, CPT+2*, CPT+10*
>> SRINOUT UTIL+4*, UTIL+11
>> SRINST HDR+2
>> SRJ CPT+1*, CPT+2*, CPT+8*, CPT+10*, CPT+15*, DX+1*, DX+2*, DX+5*
>> SRNON UTIL+5*, UTIL+6, UTIL+7, UTIL+8, UTIL+9, UTIL+10, CASE+4, PROC+4, PROC+8, PROC+9
>> SROP CPT+9*, CPT+11, CPT+13, CPT+14
>> SRPAGE HDR+2, HDR+5*
>> SRPARAM UTIL+3*, UTIL+4, UTIL+11
>> SRPODX DX+4*
>> SRPRINT HDR+2
SRPROC PROC+1!
SRPROC( PROC+2*, PROC+3*
SRPROC(1 CASE+4, PROC+1*
SRPROC(2 CASE+4
SRPROC(3 CASE+4
>> SRPROV CASE+2, PROC+8*, PROC+9*, PROC+10*
>> SRQCPT SROPCE0A+5*, TOTAL+2, CPT+3*, CPT+16*
>> SRQICD SROPCE0A+5*, TOTAL+2, DX+3*, DX+6*
>> SRRPT HDR+2
>> SRSCHED CASE+3
>> SRSDATE CASE+2, DEM+1*
>> SRSDT SROPCE0A+6*, DEM+1
>> SRSEDT SROPCE0A+6
>> SRSITE UTIL+2
>> SRSNM CASE+2, DEM+1*, DEM+2*
>> SRSOUT SROPCE0A+6, SROPCE0A+7, TOTAL, MISS+1, MISS+2, LINE, CASE+1, CASE+5, PAGE+1*, HDR+1*
>> SRSPEC UTIL+9
>> SRSPS UTIL+1*, UTIL+2*, UTIL+3
>> SRSR UTIL+3*
>> SRSS UTIL+9*, UTIL+10
>> SRSSN CASE+3, DEM+1*
>> SRSSNM UTIL+10*, CASE+2
>> SRSTATUS UTIL+11*, UTIL+12*, UTIL+13*, CASE+2, CASE+5, PROC+12, CPT+3, CPT+16, DX+3, DX+6
>> SRTITLE HDR+2
>> SRTN SROPCE0A+6*, UTIL+1, UTIL+4, UTIL+5, UTIL+6, UTIL+7, UTIL+9, UTIL+12, CASE+3, DEM+1
, PROC+1, PROC+4, PROC+8, PROC+9, CPT+1, CPT+2, CPT+4, CPT+6, CPT+7, CPT+9
, CPT+10, CPT+11, CPT+13, CPT+14, DX+1, DX+2, DX+4, DX+5
>> SRUCPT SROPCE0A+5*, TOTAL+2, CPT+3*, CPT+16*
>> SRUICD SROPCE0A+5*, TOTAL+2, DX+3*, DX+6*
SRX CPT+5~*, CPT+7*, CPT+8*, CPT+12~*, CPT+14*, CPT+15*
SRX( MISS+1, MISS+2
SRY CPT+5~, CPT+7*, CPT+12~, CPT+14*
SRZ CPT+5~, CPT+7*, CPT+12~, CPT+14*
>> VA("PID" DEM+1
>> VADM(1 DEM+1
>> VADM(3 DEM+1
>> X UTIL+3*, DEM+2*, PROC+1*, PROC+2, PROC+3*, PROC+4*, PROC+5, PROC+6*, PROC+8*, PROC+9*
, PROC+10*, PROC+11*, CPT+1*, CPT+2, CPT+4, CPT+9*, CPT+10, DX+1*, DX+2, DX+4*
, DX+5
>> X1 DEM+1*
>> X2 DEM+1*
>> Y DEM+1*, PROC+3*, PROC+6*
>> ZTQUEUED HDR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All