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

Package: Surgery

Routine: SROPECS


Information

SROPECS ;BIR/ADM-Ensuring Correct Surgery Compliance Report ; [ 07/03/03 11:39 AM ]

Source Information

Source file <SROPECS.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Surgery 4 ^SROPECS1  DATE^SROUTL  ($$INST,$$MANDIV)^SROUTL0  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 NOW^%DTC  Y^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRO ECS COMPLIANCE  

Entry Points

Name Comments DBIA/ICR reference
SORT
EN ; entry point when queued
DEVICE
SP
TOV ; process time out verified field
UTIL ; process case
DATE
MRK ; process mark on surgical site confirmed field
ASK
END
IC ; process preoperative imaging confirmed field
SPEC
MORE ; asK for more surgical specialties

External References

Name Field # of Occurrence
NOW^%DTC EN+3
^%ZIS DEVICE
^%ZISC END+2
^%ZTLOAD DEVICE+1
Y^DIQ UTIL+5
^DIR ASK+2, END+1, SORT+2, SPEC+1, SP, MORE+1
^SROPECS1 EN+9
DATE^SROUTL DATE
$$INST^SROUTL0 DATE+2
$$MANDIV^SROUTL0 EN+8
^SRSKILL END+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?18,"Ensuring Correct Surgery Compliance Report"
  • Line Location: SROPECS+2
Function Call: WRITE
  • Prompt: !!,?2,"This two-part report includes a summary of the rate of compliance and/or a",!,?2,"list of surgical cases that are non-compliant in documenting the process"
  • Line Location: SROPECS+3
Function Call: WRITE
  • Prompt: !,?2,"for ensuring correct surgery for operations performed by the selected",!,?2,"surgical specialties during the selected date range.",!
  • Line Location: SROPECS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: " "_$S(Y=1:"Compliance Summary Only",Y=2:"List of Non-Compliant Cases",1:"Both Parts")
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SORT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SPEC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: MORE+1
Routine Call
  • DIR
  • Line Location:
    • ASK+2
    • END+1
    • SORT+2
    • SPEC+1
    • SP
    • MORE+1
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+1, EN+3
^DD(130 UTIL+5
^SRF - [#130] EN+8, UTIL+1, UTIL+2, UTIL+3
^SRF("AC" EN+8
^TMP("SRLIST" EN+6!, END+2!, UTIL+6*, UTIL+7*

Label References

Name Line Occurrences
END ASK+2, DATE, DATE+1, DATE+2, DEVICE, DEVICE+1
IC UTIL+3
MORE MORE+2
MRK UTIL+3
SORT DATE+1
SPEC SORT
TOV UTIL+3
UTIL EN+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+3
%ZIS DEVICE!*
%ZIS("A" DEVICE*
%ZIS("B" DEVICE*
>> C UTIL+5*
DIR ASK!, ASK+2!, END+1!, SORT+2!, SPEC+1!, SP!, MORE+1!
DIR("?" SORT+1*, SPEC*
DIR("A" ASK*, ASK+1*, END+1*, SORT+2*, SPEC+1*, SP*, MORE+1*
DIR("B" ASK+1*, SORT+2*, SPEC+1*
DIR(0 ASK+2*, END+1*, SORT+2*, SPEC+1*, SP*, MORE+1*
>> DTOUT ASK+2, SORT+2, SPEC+1, SP, MORE+1
>> DUOUT ASK+2, SORT+2, SPEC+1, SP
>> EDATE DATE, EN+1
>> ENDATE EN+1*, EN+2
IO EN+1
IO("Q" DEVICE!, DEVICE+1!
IOF SROPECS+2, END, END+2
IOP DEVICE!
IOST END, END+1
POP DEVICE!
>> SDATE DATE, EN+1
SR0 EN+4~, UTIL+2*, UTIL+6, UTIL+7
SR71 EN+4~, UTIL+4, UTIL+6, UTIL+7, TOV+1*, TOV+2
SR72 EN+4~, UTIL+4, UTIL+6, UTIL+7, IC+1*, IC+2, IC+3
SR73 EN+4~, UTIL+4, UTIL+6, UTIL+7, MRK+1*, MRK+2, MRK+3
SRCIRC EN+4~
>> SRFLG ASK+3*, EN+5, EN+6, UTIL+3, SORT
SRFRTO SROPECS+5~, EN+2*
>> SRHDR EN+1*
SRHDRL EN+4~
SRICNE EN+4~, EN+7*, IC+4*
SRICNO EN+4~, EN+7*, IC+3*
SRICNR EN+4~, EN+7*, IC+2*
SRICY EN+4~, EN+7*, IC+1*
>> SRINST DATE+2*
SRINSTP SROPECS+5~, DATE+2*, EN+8
SRORD SROPECS+5~*, UTIL+2, UTIL+6, SORT*, SORT+3*
>> SRPAGE EN+1*
>> SRPRINT EN+3*
SRRPT SROPECS+5~, EN+2*
SRSCNE EN+4~, EN+7*, MRK+4*
SRSCNO EN+4~, EN+7*, MRK+3*
SRSCNR EN+4~, EN+7*, MRK+2*
SRSCY EN+4~, EN+7*, MRK+1*
>> SRSDT EN+1*, EN+8*, UTIL+6, UTIL+7
>> SRSEDT EN+1*, EN+8
>> SRSOUT SROPECS+5*, ASK+2*, DATE, DATE+1, DEVICE*, DEVICE+1*, EN+1*, EN+8, END+1, SORT+2*
, SPEC+1*, SP*, MORE+1*
>> SRSP SROPECS+5*, UTIL+2, SPEC+2*
>> SRSP( UTIL+2, SP+1*, MORE+2*
>> SRSS UTIL+2*, UTIL+5*, UTIL+6, UTIL+7
SRTAG EN+4~, EN+5*
SRTN EN+8*, END+2!, UTIL+1, UTIL+2, UTIL+3, UTIL+6, UTIL+7
SRTONE EN+4~, EN+7*, TOV+3*
SRTONO EN+4~, EN+7*, TOV+2*
SRTOT EN+4~, EN+7*, UTIL+3*
SRTOV EN+4~, EN+7*, TOV+1*
SRVER EN+4~, UTIL+3*, TOV+1, IC+1, MRK+1
>> STARTDT EN+1*, EN+2
U DATE+2
>> Y ASK+3, EN+1*, EN+3*, UTIL+5*, SORT+3, SPEC+2, SP+1, MORE+2
>> ZTDESC DEVICE+2*
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN DEVICE+2*
>> ZTSAVE("EDATE" DEVICE+3*
>> ZTSAVE("SDATE" DEVICE+3*
>> ZTSAVE("SRFLG" DEVICE+3*
>> ZTSAVE("SRINST" DEVICE+3*
>> ZTSAVE("SRINSTP" DEVICE+3*
>> ZTSAVE("SRORD" DEVICE+3*
>> ZTSAVE("SRSP*" DEVICE+3*
>> ZTSTOP END
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All