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

Package: Surgery

Routine: SROASWAP


Information

SROASWAP ;B'HAM ISC/MAM - MOVE RISK TO FILE 130 ; 13 APR 1992 8:25 am

Source Information

Source file <SROASWAP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 5 ^SROASWP  ^SROASWP0  ^SROASWP2  ^SROASWPD  ^SRSKILL  
VA Fileman 2 ^%DT  EN^DIU2  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROA CONVERT  

Entry Points

Name Comments DBIA/ICR reference
NEEDATE ; message if no date is entered
END
NOTYET ; can't convert before April 1, 1994
START
DEL ; delete file 139
DATE ; get starting date
CONT

External References

Name Field # of Occurrence
^%DT DATE+1
EN^DIU2 DEL+2
^SROASWP START
^SROASWP0 DATE+2
^SROASWP2 DATE+3
^SROASWPD DATE+5
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: @IOF,!,"The SURGERY RISK ASSSESSMENT file (139) still contains entries. Before you",!,"enter any additional risk assessment information, all entries in this file ",!,"should be converted or deleted."
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: @IOF,!,"The conversion process has been completed. Please review your incomplete",!,"assessments."
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF,!,SRLINE,!,"The conversion of the ""stand-alone"" Surgery Risk Assessment Module cannot",!,"be run until after April 1, 1994. It should only be run after that date"
  • Line Location: NOTYET+1
Function Call: WRITE
  • Prompt: !,"if your Surgery files are complete, including complications, CPT codes and",!,"anesthesia information since installing Surgery Version 3.0.",!,SRLINE
  • Line Location: NOTYET+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: NOTYET+3
Function Call: WRITE
  • Prompt: !!,"You must select a starting date to begin the conversion process. All ",!,"assessments with operation dates prior to the start date will be automatically"
  • Line Location: NEEDATE+1
Function Call: WRITE
  • Prompt: !,"deleted. The remaining assessments will then be processed for conversion."
  • Line Location: NEEDATE+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue, or '^' to quit: "
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !!,"The SURGERY RISK ASSESSMENT file will now be deleted from your system... "
  • Line Location: DEL+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRA(0 DATE+4, DATE+5
^TMP("CONVERT" DATE+3!

Label References

Name Line Occurrences
DATE DATE+1
DEL DATE+5
END SROASWAP+3, START, DATE+1
NEEDATE DATE+1
NOTYET SROASWAP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1!*
%DT("A" DATE+1*
DIU DEL+2!*
DIU(0 DEL+2*
DT SROASWAP+3
DTIME DATE+6, NOTYET+3, CONT
>> I SROASWAP+2*
IOF DATE+4, DATE+5, END, NOTYET+1
>> SRDATE DATE+2*
>> SRLINE SROASWAP+2*, NOTYET+1, NOTYET+2
>> SRSOUT SROASWAP+3*, START, DATE+1, DATE+4*, CONT*
SRTN END!
>> X DATE+1, DATE+6*, NOTYET+3*, CONT*
>> Y DATE+1, DATE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All