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

Package: Surgery

Routine: SROPCE0A


Information

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

Source Information

Source file <SROPCE0A.m>

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

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