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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SROCMPL

Package: Surgery

Routine: SROCMPL


Information

SROCMPL ;B'HAM ISC/MAM - ENTER NON-OPERATIVE OCCURRENCES; [ 01/08/98 9:54 AM ]

Source Information

Source file <SROCMPL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  FILE^DICN  ^DIE  
Surgery 2 ^SROCMPD  ^SRSKILL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROCOMP  

Entry Points

Name Comments DBIA/ICR reference
OPT
NEW ; enter new occurrence
END
HELP ; help text
COMP ; enter occurrence information
LIST ; list case
KEY
ENTER
PROMPT ;

External References

Name Field # of Occurrence
^%DT NEW+1
^DIC SROCMPL+4
FILE^DICN NEW+4
^DIE NEW+5, COMP+1
^SROCMPD ENTER+2
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"NOTE: You are about to enter an occurrence for a patient that has not had an",!,"operation during this admission. If this patient has a surgical procedure"
  • Line Location: SROCMPL+2
Function Call: WRITE
  • Prompt: !,"during the current admission, use the option to enter or edit intraoperative",!,"and postoperative occurrences.",!!
  • Line Location: SROCMPL+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: SROCMPL+4
Function Call: WRITE
  • Prompt: @IOF,!,?3,SRNM,!
  • Line Location: SROCMPL+5
Function Call: WRITE
  • Prompt: !!,CNT_".",?14,"ENTER A NEW NON-OPERATIVE OCCURRENCE"
  • Line Location: SROCMPL+7
Function Call: READ
  • Prompt: "Select Number: "
  • Formatting: !!!!
  • Timeout: DTIME
  • Variable: OPT
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired occurrence, or '"_CNT_"' to enter a new occurrence."
  • Line Location: OPT+1
Function Call: READ
  • Prompt: "Enter or Delete Data ? E// "
  • Formatting: !!!
  • Timeout: DTIME
  • Variable: Z
  • Line Location: ENTER+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENTER+3
Function Call: WRITE
  • Prompt: !,CNT_". "_$E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3),?14,"OCCURRENCE IN WHICH THERE WAS NO SURGICAL PROCEDURE",!,?14,"DURING THE CURRENT ADMISSION"
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to select an option used to enter or edit information for this",!,"case. If you would like a two screen overview of this operation, enter"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"'Review'. To delete this surgical case from your records, Enter 'Delete'.",!,"Please note that choosing to delete a case will remove EVERYTHING pertaining",!,"to this operative procedure.",!
  • Line Location: HELP+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: KEY+0
Function Call: WRITE
  • Prompt: !!,"You do not have the access necessary to delete a case from the file.",!!,"Press RETURN to continue "
  • Line Location: KEY+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"By deleting this case, all information stored for this operative procedure",!,"will be removed from the computer."
  • Line Location: PROMPT+1
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: NEW+1
Function Call: WRITE
  • Prompt: !!,"When entering a new non-operative occurrence, a date MUST be entered.",!!
  • Line Location: NEW+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: COMP+1
Routine Call
  • DIE
  • Line Location:
    • NEW+5
    • COMP+1
Routine Call
  • DIC
  • Line Location:
    • SROCMPL+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SROCMPL+6, ENTER+3, NEW+5*
^SRF("ANON" SROCMPL+6
^XUSEC("SROEDIT" KEY

Label References

Name Line Occurrences
COMP ENTER+3
END SROCMPL+4, OPT, ENTER, ENTER+2, ENTER+4, NEW+2, COMP+2
ENTER ENTER+1
HELP ENTER+1
KEY PROMPT+1
LIST SROCMPL+6
NEW OPT+2
OPT OPT+1
SROCMPL NEW+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT NEW+1*
>> %DT("A" NEW+1*
>> CNT SROCMPL+6*, SROCMPL+7*, OPT+1, OPT+2, LIST+1
DA NEW+4!, NEW+5*, COMP+1*
DD NEW+4!
>> DFN SROCMPL+4*, SROCMPL+6, NEW+4
DIC SROCMPL+4!*, NEW+4!*
DIC(0 SROCMPL+4*, NEW+4*
DIE NEW+5!*, COMP+1!*
DINUM NEW+4!
DLAYGO NEW+4*!
DO NEW+4!
DR NEW+5!*, COMP+1!*
DTIME OPT, ENTER, KEY, COMP+1
DUZ KEY
>> I SROCMPL+6*
IOF SROCMPL+2, SROCMPL+5, ENTER+3, END, NEW+1
>> NOKEY KEY*, PROMPT+1
>> OPT OPT*, OPT+1, OPT+2, ENTER
>> SRCASE( SROCMPL+7*, OPT+1, ENTER, LIST+1*
>> SRNM SROCMPL+4*, SROCMPL+5
>> SROP SROCMPL+6*, LIST+1
>> SRPRIN NEW+3*, NEW+5
>> SRSDATE SROCMPL+6*, ENTER+3*, LIST+1, NEW+2*, NEW+5
SRTN OPT!, ENTER*, ENTER+3, END!, NEW+4!*, NEW+5, COMP+1
>> X KEY*, NEW+4*, COMP+1*
Y SROCMPL+4!, NEW+1, NEW+2, NEW+4
>> Z ENTER*, ENTER+1, ENTER+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All