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

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 CHK^SROPCE0  ^SROSTOP  $$DIV^SROUTL0  
VA FileMan 2 EN^DIQ1  ^DIR  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Surgery 2 SROPCE0  SROPCE0A  

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

External References

Name Field # of Occurrence
EN^DIQ1 SCHED+3
^DIR PAGE+1
CHK^SROPCE0 UTIL+11, UTIL+13
^SROSTOP HDR+1
$$DIV^SROUTL0 SROPCE0B+7
DEM^VADPT DEM+1

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
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
^SCE("AVSIT" SCHED+2
^SRF - [#130] SROPCE0B+7, UTIL+1, UTIL+4, UTIL+5, UTIL+6, UTIL+7, UTIL+9, UTIL+12, DEM+1, PROC+1
^SRF("AC" SROPCE0B+7
^SRO(133 - [#133] UTIL+1, UTIL+3
^SRO(137.45 - [#137.45] UTIL+10

Label References

Name Line Occurrences
CASE UTIL+11, UTIL+12, UTIL+13
DEM CASE+1
HDR SROPCE0B+7, PAGE
LINE UTIL+12, MISS+1
MISS UTIL+11, UTIL+13
PAGE TOTALMISS+2, CASE+1
PROC CASE+1
SCHED CASE+1
TOTAL SROPCE0B+8
UTIL SROPCE0B+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT( TOTAL+1
>> CNT(1 TOTALUTIL+12*
>> CNT(4 TOTALUTIL+13*
>> CNT(5 TOTAL+2, UTIL+11*
>> CNT(6 TOTAL+1*, TOTAL+2
DA SCHED+3*!
>> DFN DEM+1*
DIC SCHED+3*!
DIQ SCHED+3*!
DIQ(0 SCHED+3*
DIR PAGE+1!
DIR(0 PAGE+1*
DR SCHED+3*!
>> DTOUT PAGE+1
>> DUOUT PAGE+1
>> I TOTAL+1*, LINE*, PROC+3*, HDR+4*
IOF HDR+2
IOSL TOTALMISS+2, CASE+1
IOST PAGEHDR+2
>> J PROC+3*
>> K PROC+2*, PROC+3*
>> SR(0 SCHED+1, DEM+1*
>> SRAGE CASE+2, DEM+1*
>> SRCT MISS+2*
>> SRDIV UTIL+1*, UTIL+2
SRENC SCHED+1~, SCHED+2*, SCHED+3, SCHED+4, SCHED+5
>> SRFLD MISS+1*, MISS+2*
>> SRFLG UTIL+6, UTIL+7, UTIL+8, CASE+3, HDR+3
>> SRFRTO HDR+2
>> SRHALT HDR+1
>> SRHDR PAGEHDR+4*
>> SRINOUT UTIL+4*, UTIL+11
>> SRINST HDR+2
>> SRNON UTIL+5*, UTIL+6, UTIL+7, UTIL+8, UTIL+9, UTIL+10, CASE+3
>> SRPAGE HDR+2, HDR+4*
>> SRPARAM UTIL+3*, UTIL+4, UTIL+11
>> SRPRINT HDR+2
SRPROC PROC+1!
SRPROC( PROC+2*, PROC+3*
SRPROC(1 CASE+3, PROC+1*
SRPROC(2 CASE+3
SRPROC(3 CASE+3
>> SRRPT HDR+2
>> SRSCHED SCHED+1*, SCHED+5*, CASE+3
>> SRSDATE CASE+2, DEM+1*
>> SRSDT SROPCE0B+7*, DEM+1
>> SRSEDT SROPCE0B+7
>> SRSITE UTIL+2
>> SRSNM CASE+2, DEM+1*, DEM+2*
>> SRSOUT SROPCE0B+7, SROPCE0B+8, TOTALMISS+1, MISS+2, LINECASE+1, PAGE+1*, HDR+1*
>> SRSPEC UTIL+9
>> SRSPS UTIL+1*, UTIL+2*, UTIL+3
>> SRSR UTIL+3*
>> SRSS UTIL+9*, UTIL+10
>> SRSSN CASE+2, DEM+1*
>> SRSSNM UTIL+10*, CASE+3
>> SRSTATUS UTIL+11*, UTIL+12*, UTIL+13*, CASE+2
>> SRTITLE HDR+2
>> SRTN SROPCE0B+7*, UTIL+1, UTIL+4, UTIL+5, UTIL+6, UTIL+7, UTIL+9, UTIL+12, CASE+3, DEM+1
PROC+1
SRVSIT SCHED+1~*, SCHED+2
SRX SCHED+1~
SRX( MISS+1, MISS+2, SCHED+4*, SCHED+5
>> VA("PID" DEM+1
>> VADM(1 DEM+1, DEM+2
>> VADM(3 DEM+1
>> X UTIL+3*, SCHED+5*, PROC+1*, PROC+2, PROC+3*
>> X1 DEM+1*
>> X2 DEM+1*
>> Y DEM+1*, PROC+3*
>> ZTQUEUED HDR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All