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

Call Graph Total: 10

Package Total Call Graph
Surgery 6 ($$ICD,$$ICD910,$$ICDSYS,$$IMPDATE)^SROICD  PR^SROICDL  CHK^SROPCE0  SCHED^SROPCE0B  ^SROSTOP  $$DIV^SROUTL0  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
Registration 1 DEM^VADPT  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Surgery 1 SROPCE0  

Entry Points

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

External References

Name Field # of Occurrence
^DIR PAGE+1
$$CPT^ICPTCOD CPT+2, CPT+10
$$MOD^ICPTMOD CPT+7, CPT+14
$$ICD^SROICD DX+4, DX+12
$$ICD910^SROICD CASE+6
$$ICDSYS^SROICD DX+2, DX+10
$$IMPDATE^SROICD ICDCHK
PR^SROICDL DX+4, DX+12
CHK^SROPCE0 UTIL+11, UTIL+13
SCHED^SROPCE0B CASE+1
^SROSTOP HDR+1
$$DIV^SROUTL0 SROPCE0A+11
DEM^VADPT DEM+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?28,"CPT",?36,$S(ICD=9:"ICD9",ICD=10:"ICD10",ICD=910:"ICD9 ICD10",1:"")
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: !,?20,"CASES",?27,"CODES",?35,"CODES"
  • Line Location: TOTAL+2
Function Call: WRITE
  • Prompt: ?43,"CODES"
  • Condition for execution: ICD=910
  • Line Location: TOTAL+2
Function Call: WRITE
  • Prompt: !,?13,"FILED: ",$J(CNT(1),5),?27,$J(SRFCPT,5)
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: ?35,$J(SRFICD(9),5),?43,$J(SRFICD(10),5)
  • Condition for execution: ICD=910
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: ?35,$J(SRFICD(9),5)
  • Condition for execution: ICD=9
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: ?35,$J(SRFICD(10),5)
  • Condition for execution: ICD=10
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: !,?9,"NOT FILED: "_$J(CNT(4),5)
  • Line Location: TOTAL+4
Function Call: WRITE
  • Prompt: !,?9,"UNCERTAIN: "_$J(CNT(5),5)
  • Condition for execution: CNT(5)
  • Line Location: TOTAL+5
Function Call: WRITE
  • Prompt: !,?20,"-----",?27,"-----",?35,"-----"
  • Line Location: TOTAL+5
Function Call: WRITE
  • Prompt: ?43,"-----"
  • Condition for execution: ICD=910
  • Line Location: TOTAL+5
Function Call: WRITE
  • Prompt: !,?13,"TOTAL: ",$J(CNT(6),5),?27,$J(SRFCPT+SRQCPT+SRUCPT,5)
  • Line Location: TOTAL+6
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: ?1,SRCPT(SRI)
  • Line Location: CASE+7
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 - [#723] UTIL+10
^SRF - [#130] SROPCE0A+11, 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+10
^SRF("AC" SROPCE0A+9, SROPCE0A+10
^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+9
^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+8, PAGE
ICDCHK TOTAL
LINE UTIL+12, MISS+1
MISS UTIL+11, UTIL+13
PAGE TOTALMISS+2, CASE+1, CASE+6
TOTAL SROPCE0A+12
UTIL SROPCE0A+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT( TOTAL+4
>> CNT(1 TOTAL+3, UTIL+12*
>> CNT(4 TOTAL+4, UTIL+13*
>> CNT(5 TOTAL+5, UTIL+11*
>> CNT(6 TOTAL+4*, TOTAL+6
>> DFN DEM+1*
DIR PAGE+1!
DIR(0 PAGE+1*
>> DTOUT PAGE+1
>> DUOUT PAGE+1
>> EDATE ICDCHK+1
>> I TOTAL+4*, LINE*, PROC+3*, PROC+6*, HDR+5*
ICD SROPCE0A+6~, TOTAL+1, TOTAL+2, TOTAL+3, TOTAL+5, TOTAL+7, ICDCHK+1*
IOF HDR+2
IOM LINEHDR+2, HDR+5
IOSL TOTALMISS+2, CASE+1, CASE+6
IOST PAGEHDR+2
>> J PROC+3*, PROC+6*
>> K PROC+2*, PROC+3*, PROC+5*, PROC+6*
>> SDATE ICDCHK+1
>> SR(0 DEM+1*
>> SRAGE CASE+3, DEM+1*
>> SRATT CASE+3, PROC+8*, PROC+9*, PROC+11*
SRCPT CPT+1!
SRCPT( CASE+6, CASE+7*, 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+6, CASE+7, DX+12*, DX+13*, DX+14*
SRDX(1 DX+4*, DX+5*, DX+6*
>> SRFCPT SROPCE0A+5*, TOTAL+3, TOTAL+6, CPT+3*, CPT+16*
>> SRFICD SROPCE0A+5*, DX+8*, DX+16*
>> SRFICD( TOTAL+7, DX+8*, DX+16*
>> SRFICD(10 SROPCE0A+7*, TOTAL+3, TOTAL+7
>> SRFICD(9 SROPCE0A+7*, TOTAL+3, TOTAL+7
>> 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 PAGEHDR+5*
SRI CASE+6*, CASE+7, CPT+5~, CPT+6*, CPT+7, CPT+12~, CPT+13*, CPT+14
SRICPT CPT+1~, CPT+2*, CPT+10*
SRIMPDT SROPCE0A+6~, ICDCHK*, ICDCHK+1
>> SRINOUT UTIL+4*, UTIL+11
>> SRINST HDR+2
>> SRJ CPT+1*, CPT+2*, CPT+8*, CPT+10*, CPT+15*, DX+1*, DX+6*, DX+12, DX+13, DX+14*
>> 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
SRPARSE DX+4~, DX+5, DX+6!, DX+12~, DX+13, DX+14!
SRPARSE(1 DX+4*, DX+6, DX+12*, DX+14
SRPARSE(2 DX+5, DX+13
SRPARSE(3 DX+5, DX+13
>> SRPODX DX+9*
>> 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+6, CPT+3*, CPT+16*
>> SRQICD SROPCE0A+5*, DX+8*, DX+16*
>> SRQICD( TOTAL+7, DX+8*, DX+16*
>> SRQICD(10 SROPCE0A+7*, TOTAL+7
>> SRQICD(9 SROPCE0A+7*, TOTAL+7
>> SRRPT HDR+2
>> SRSCHED CASE+3
>> SRSDATE CASE+2, DEM+1*
>> SRSDT SROPCE0A+9*, SROPCE0A+10, DEM+1
>> SRSEDT SROPCE0A+9
>> SRSITE UTIL+2
>> SRSNM CASE+2, DEM+1*, DEM+2*
>> SRSOUT SROPCE0A+9, SROPCE0A+11, SROPCE0A+12, TOTALMISS+1, MISS+2, LINECASE+1, CASE+6, 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+6, PROC+12, CPT+3, CPT+16, DX+8, DX+16
SRSY DX+1!, DX+2*, DX+8, DX+10*, DX+16
SRSYS DX+1!, DX+2*, DX+10*
>> SRTITLE HDR+2
>> SRTN SROPCE0A+10*, SROPCE0A+11, UTIL+1, UTIL+4, UTIL+5, UTIL+6, UTIL+7, UTIL+9, UTIL+12, CASE+3
CASE+6, 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+9
DX+10, DX+12
>> SRUCPT SROPCE0A+5*, TOTAL+6, CPT+3*, CPT+16*
>> SRUICD SROPCE0A+5*, DX+8*, DX+16*
>> SRUICD( TOTAL+7, DX+8*, DX+16*
>> SRUICD(10 SROPCE0A+7*, TOTAL+7
>> SRUICD(9 SROPCE0A+7*, TOTAL+7
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+4, DX+9*
DX+12
>> 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