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

Package: Surgery

Routine: SRONASS


Information

SRONASS ;B'HAM ISC/MAM - NO ASSESSMENT REASON ; [ 04/13/04 10:30 PM ]

Source Information

Source file <SRONASS.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Surgery 6 ^SROAEX  ^SROERR0  (EXIT,SRA)^SROES  ^SROPSEL  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
VA Fileman 4 ^DIE  EN1^DIK  Y^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SR NO ASSESSMENT REASON  SROAEX  SROANEW  

Entry Points

Name Comments DBIA/ICR reference
END1
ASS ; assessment already exists
SET ; expand reason for no assessment code
END
OTHER ; other operations
DRDEL
ASK
LOOP ; break procedure
DELETE ; delete no assessment reason

External References

Name Field # of Occurrence
^DIE SRONASS+10, DRDEL
EN1^DIK END1
Y^DIQ SET+1
^DIR SRONASS+8
^SROAEX SRONASS+11
^SROERR0 SRONASS+11
EXIT^SROES END1+1
SRA^SROES SRONASS+6
^SROPSEL SRONASS+2
$$LOCK^SROUTL SRONASS+5
UNLOCK^SROUTL END
^SRSKILL END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"According to your records, an assessment should be created for this surgical",!,"case."
  • Line Location: ASS+1
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"If this case will not be used for the risk assessment study, Enter 'YES' to ",!,"change the status. You will then be prompted for the reason that no assessment",!,"was done. Enter 'NO' to leave this case unchanged."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"No action taken.",!!,"Press RETURN to continue "
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !!,"If you delete the reason why no assessment was created for this case, the",!,"computer will automatically update your records to make this a non-assessed",!,"case."
  • Line Location: DELETE+1
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: DELETE+2
Function Call: WRITE
  • Prompt: !!,"By entering an '@', you have told the computer that you want to remove the ",!,"reason why no assessment was created for this case. If this reason should be",!,"deleted, enter 'YES'."
  • Line Location: DELETE+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DELETE+5
Function Call: WRITE
  • Prompt: !!,"No action taken.",!!,"Press RETURN to continue "
  • Line Location: DELETE+5
Function Call: WRITE
  • Prompt: !!,"Updating to non-assessed status..."
  • Line Location: DELETE+6
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: DELETE+6
Routine Call
  • DIE
  • Line Location:
    • SRONASS+10
    • DRDEL
Routine Call
  • DIR
  • Line Location:
    • SRONASS+8

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 SET+1
^SRF - [#130] SRONASS+4, SRONASS+7, OTHER+1, OTHER+2

Label References

Name Line Occurrences
@( SRONASS+3
ASK ASK+3
ASS SRONASS+4
DELETE SRONASS+9, DELETE+4
DRDEL DELETE+6
END SRONASS+2, SRONASS+3, SRONASS+4, SRONASS+5, SRONASS+8
END1 SRONASS+9
SET SRONASS+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C SET+1*
DA SRONASS+10!*, END1!*, DRDEL!*
>> DFN SRONASS+2
DIE SRONASS+10!*, DRDEL!*
DIK END1!*
DIK(1 END1*
DIR SRONASS+7!, SRONASS+8!
DIR("A" SRONASS+8*
DIR("B" SRONASS+7*
DIR(0 SRONASS+8*
DR SRONASS+10!*, DRDEL!*
DTIME ASK, ASK+5, DELETE+2, DELETE+5, DELETE+6
>> DTOUT SRONASS+8
>> DUOUT SRONASS+8
IOF END+1
>> LOOP LOOP+1*
>> M LOOP+1
>> MM LOOP+1*
>> MMM LOOP+1*
>> OK SRONASS+4, ASS+1*, ASK*, ASK+4*
SRLCK SRONASS+5~*, END
>> SRLONG OTHER+1*, OTHER+2
>> SROERR SRONASS+11*
>> SROPER LOOP+1*, OTHER+1, OTHER+3*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
>> SROPS( LOOP+1*
>> SROTHER OTHER+1*, OTHER+2
SRSEL SRONASS+2~, SRONASS+3
>> SRSOUT SRONASS+2*, SRONASS+3*, SRONASS+8*, DELETE+2*, DELETE+5*
SRTN SRONASS+2!, SRONASS+3, SRONASS+4, SRONASS+5, SRONASS+7, SRONASS+10, SRONASS+11, END1, END, END+1!
, OTHER+1, OTHER+2, DRDEL
>> SRYN ASK*, ASK+1*, ASK+2, ASK+3, ASK+4, ASK+5, DELETE+2*, DELETE+3*, DELETE+4, DELETE+5
>> X SRONASS+4*, SRONASS+7*, SRONASS+8, SRONASS+9, SRONASS+10, SET+1*, ASK+5*, DELETE+5*, DELETE+6*
>> Y SRONASS+8, SET+1*
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