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

Package: Surgery

Routine: SROASWP0


Information

SROASWP0 ;B'HAM ISC/MAM - DELETE NO ASSESSMENTS ; 22 APR 1992 12:00 pm

Source Information

Source file <SROASWP0.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
MailMan 1 ^XMD  
Registration 1 DEM^VADPT  
Surgery 1 ^SROASWP1  
VA Fileman 1 ^DIK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROASWAP  

Entry Points

Name Comments DBIA/ICR reference
SENDMSG ; send mail message
DESTROY ; destroy SROA CONVERT option
CHECK ; determine if assessment should be deleted
MSGLINE ; store info for mail message
DELETE ; delete assessment from 139

External References

Name Field # of Occurrence
^DIK DELETE+1, DESTROY+2
^SROASWP1 SROASWP0+11
DEM^VADPT MSGLINE+1
^XMD SENDMSG+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Risk Assessment Pre-Conversion: "
  • Line Location: SROASWP0+3
Function Call: WRITE
  • Prompt: !!,"Deleting all entries from the SURGERY RISK ASSESSMENT file (139) which do not",!,"contain assessment information or have an operation date prior to the ",!,"selected start date."
  • Line Location: SROASWP0+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: SROASWP0+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: SROASWP0+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19 - [#19] DESTROY+1
^SRA( SROASWP0+8, SROASWP0+9, CHECK+1, CHECK+2, MSGLINE+1
^SRA(0 SROASWP0+2
^TMP("CONVERT" SROASWP0+5!*, SROASWP0+6*, SROASWP0+7*, SROASWP0+10, SROASWP0+11!, MSGLINE+2*
^XMB("NETNAME" SENDMSG+1

Label References

Name Line Occurrences
CHECK SROASWP0+9
DELETE SROASWP0+8, SROASWP0+9
DESTROY SROASWP0+2
MSGLINE SROASWP0+8, SROASWP0+9
SENDMSG SROASWP0+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DELETE+1*, DESTROY+2!*
>> DATE MSGLINE+1*, MSGLINE+2
>> DFN MSGLINE+1*
DIK DELETE+1*, DESTROY+2!*
I SENDMSG+3~
>> SRA("S" SROASWP0+8*, CHECK+2*
>> SRA(0 MSGLINE+1*
>> SRADEL SROASWP0+9, CHECK+1*, CHECK+2*
>> SRAN SROASWP0+8*, SROASWP0+9*, CHECK+1, CHECK+2, DELETE+1, MSGLINE+1
>> SRANAME MSGLINE+1*, MSGLINE+2
>> SRCNT SROASWP0+8*, SROASWP0+9*, MSGLINE+2*
>> SRCONV DESTROY+1*, DESTROY+2
>> SRDATE CHECK+1
>> SRTYPE SROASWP0+8*, CHECK+2*
>> STATUS SROASWP0+8*, CHECK+2*
>> VA("PID" MSGLINE+1
>> VADM(1 MSGLINE+1
XMDUZ SENDMSG+2*, SENDMSG+3!
XMSUB SENDMSG+2*, SENDMSG+3!
XMTEXT SENDMSG+2*, SENDMSG+3!
XMY SENDMSG+3!
XMY("G.RISK A SSESSMENT@" , SENDMSG+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