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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROANEW

Package: Surgery

Routine: SROANEW


Information

SROANEW ;BIR/MAM - CREATE NEW RISK ASSESSMENT ;01/18/07

Source Information

Source file <SROANEW.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 5 EXCL^SROASS  DRDEL^SRONASS  ^SROP1  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
VA Fileman 1 ^DIE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROASS  

Entry Points

Name Comments DBIA/ICR reference
OPT
DISP
END
LIST ; list assessments
CASE
OTHER ; other operations
ASK
SEL ; select case
TYPE
LOOP ; break procedures

External References

Name Field # of Occurrence
^DIE ASK+7, ASK+9, TYPE, TYPE+1
EXCL^SROASS ASK
DRDEL^SRONASS ASK+6
^SROP1 DISP+2
$$LOCK^SROUTL ASK+5
UNLOCK^SROUTL ASK+5
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")
  • Line Location: SROANEW+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: SROANEW+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SROANEW+4
Function Call: WRITE
  • Prompt: "No operations exist for this patient. Assessment cannot be entered.",!!,"Press RETURN to continue... "
  • Line Location: SROANEW+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"This case is currently flagged as meeting Risk Assessment exclusion criteria.",$C(7)
  • Line Location: ASK+1
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to create an assessment for this surgical case, or 'NO' to quit",!,"this option."
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: CNT_". "
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3),?14,SROPS(1)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(4)
  • Line Location: CASE+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: CASE+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!!
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!,"Please enter the number corresponding to the Surgical Case you want to edit.",!,"If the case desired does not appear, enter <RET> to continue listing",!,"additional cases."
  • Line Location: SEL+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Routine Call
  • DIE
  • Line Location:
    • ASK+7
    • ASK+9
    • TYPE
    • TYPE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] ASK+1, ASK+6, ASK+8, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+7, DISP
, DISP+1, OTHER+1, OTHER+2
^SRF("ADT" SROANEW+3

Label References

Name Line Occurrences
ASK SROANEW+3, ASK+3
END SROANEW+4, OPT
LIST SROANEW+3
LOOP DISP+3
OPT OPT+1
OTHER DISP
SEL LIST+6

Naked Globals

Name Field # of Occurrence
^( LIST+2
^(37 LIST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT SROANEW+3*, SROANEW+4, OPT+1, LIST+6*, LIST+7*, DISP+1*, DISP+4, CASE+3
DA ASK+7!*, ASK+9*!, TYPE*, TYPE+1!*
>> DFN SROANEW+3
DIE ASK+7!*, ASK+9*!, TYPE!*, TYPE+1!*
DR ASK+7!*, ASK+9*!, TYPE!*, TYPE+1!*
DTIME SROANEW+4, OPT, ASK+2, SEL+1, SEL+4
>> I SROANEW+3*, DISP*
IOF SROANEW+2, LIST+6, SEL+2, END
IOSL LIST+6
>> LOOP LOOP+1*
>> M DISP+3*, LOOP+1
MM DISP+3!, LOOP+1*
MMM DISP+3!, LOOP+1*
>> SR("RA" DISP+1*
>> SRASS SROANEW+3*, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6*, LIST+7, DISP, DISP+1
, DISP+2, CASE+3, OTHER+1, OTHER+2
>> SRATYPE ASK, ASK+7, TYPE
>> SRBACK LIST+6*, SEL+4*
>> SRCASE( OPT+1, OPT+2, CASE+3*, SEL+3, SEL+4, SEL+5
>> SRCASE(1 LIST+6
>> SRDT SROANEW+3*, LIST+6*, CASE+3
>> SRLONG OTHER+1*, OTHER+2
>> SRNEWOP OPT+1
>> SROP DISP+2*
>> SROPER DISP*, DISP+3*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS DISP+3!
SROPS( LOOP+1*
SROPS(1 DISP+3*, CASE
SROPS(2 CASE
SROPS(3 CASE
SROPS(4 CASE+1
>> SROTHER DISP*, OTHER+1*, OTHER+2
SRSCAN LIST+2*!, LIST+3, LIST+4
>> SRSDATE LIST+7*, CASE
>> SRSOUT SROANEW+3, OPT*, ASK+2*, ASK+4*, LIST+6, SEL+1*, SEL+4*
SRTN SROANEW+3, OPT+2*, ASK+1, ASK+2!, ASK+4!, ASK+5, ASK+6, ASK+7, ASK+8, ASK+9
, ASK+10!, LIST+6, DISP+4, CASE+2, SEL+5*, TYPE, TYPE+1
>> SRYN ASK+2*, ASK+3*, ASK+4
>> VA("PID" SROANEW+2, LIST+6, SEL+2
>> VADM(1 SROANEW+2, LIST+6, SEL+2
X SROANEW+4*, OPT*, OPT+1, OPT+2, ASK+8~*, SEL+1*, SEL+2, SEL+3, SEL+4*, SEL+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All