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

Package: Surgery

Routine: SROPCE0B


Information

SROPCE0B ;BIR/ADM - PCE FILING STATUS REPORT, SHORT FORM ;12/16/98 2:10 PM

Source Information

Source file <SROPCE0B.m>

Entry Points

Name Comments DBIA/ICR reference
TOTAL
UTIL ; process case
MISS ; list fields missing data
LINE
SCHED ; get appointment status from Scheduling
CASE ; print case info
DEM ; get patient demographic information
PROC ; get principal procedure
PAGE
HDR ; print heading

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?13,"FILED: ",$J(CNT(1),5),!,?9,"NOT FILED: "_$J(CNT(4),5)
  • Line Location: TOTAL+0
Function Call: WRITE
  • Prompt: !,?9,"UNCERTAIN: "_$J(CNT(5),5)
  • Condition for execution: CNT(5)
  • Line Location: TOTAL+2
Function Call: WRITE
  • Prompt: !,?20,"-----",!,?7,"TOTAL CASES: ",$J(CNT(6),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,?44,SRSSN_" ("_SRAGE_")",?66,$S(SRSTATUS=1:"FILED",SRSTATUS=4:"NOT FILED",1:"UNCERTAIN")
  • Line Location: CASE+2
Function Call: WRITE
  • Prompt: !,SRTN,?22,$E(SRSSNM,1,20),?66,$E(SRSCHED,1,14),!
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: "NON-O.R."
  • Condition for execution: (SRFLG=3)&SRNON
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: ?22,SRPROC(1)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?22,SRPROC(2)
  • Condition for execution: $D(SRPROC(2))
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?22,SRPROC(3)
  • Condition for execution: $D(SRPROC(3))
  • Line Location: CASE+3
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: !,?(80-$L(SRINST)\2),SRINST
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(80-$L(SRRPT)\2),SRRPT,?70,$J("PAGE "_SRPAGE,9),!,?(80-$L(SRTITLE)\2),SRTITLE,!,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(80-$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",?44,"PATIENT ID (AGE)",?66,"FILING STATUS",!,"CASE #",?22,"SPECIALTY",?66,"SCHED STATUS",!,?22,"PRINCIPAL PROCEDURE"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Info |  Source |  Entry Points |  Interaction Calls