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

Package: Surgery

Routine: SROASWP2


Information

SROASWP2 ;B'HAM ISC/MAM - MOVE RISK TO FILE 130 ; 13 APR 1992 3:35 pm

Source Information

Source file <SROASWP2.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 ^DIE  ^DIK  D^DIQ  ^DIR  
Surgery 2 ^SROASWP3  ^SROCCAT  
MailMan 1 ^XMD  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROASWAP  

Entry Points

Name Comments DBIA/ICR reference
CONVERT
HELP
MOVE ; move data from file 139 to file 130
MANUAL
SENDMSG ; send mail message
CHECK ; check for match
MSGLINE ; store info for mail message
DELETE ; delete assessment from 139

External References

Name Field # of Occurrence
^DIE CONVERT+2, MOVE+7
^DIK DELETE+1
D^DIQ SROASWP2+2
^DIR HELP+1
^SROASWP3 MANUAL+4
^SROCCAT CONVERT+3
DEM^VADPT MSGLINE+1
^XMD SENDMSG+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Automatically matching Risk Assessment entries with Surgery Cases"
  • Line Location: SROASWP2+3
Function Call: WRITE
  • Prompt: !!,"There "_$S(CNT=1:"is ",1:"are ")_CNT_" assessment"_$S(CNT=1:"",1:"s")_" remaining."
  • Line Location: MANUAL+0
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: MANUAL+1
Function Call: WRITE
  • Prompt: !!,SRDD_" ",X,?45,SRFIELD,?50,DATA
  • Line Location: MOVE+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' if you want to continue converting assessments manually, or 'NO'",!,"to quit this option.",!
  • Line Location: HELP+0
Routine Call
  • DIE
  • Line Location:
    • CONVERT+2
    • MOVE+7
Routine Call
  • DIR
  • Line Location:
    • HELP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 MOVE+8, MOVE+9
^DD(139 CONVERT, MOVE+5, MOVE+8
^SRA( SROASWP2+6, SROASWP2+9, MANUAL+4, CONVERT+1, CONVERT+2, MOVE+5, MOVE+7, MSGLINE+1
^SRA(0 SROASWP2+8
^SRF - [#130] MOVE+9*, CHECK+1
^SRF("B" CHECK+1
^TMP("CONVERT" SROASWP2+4!*, SROASWP2+5*, SROASWP2+7, MOVE+6*, MSGLINE+2*
^XMB("NETNAME" SENDMSG+1

Label References

Name Line Occurrences
CHECK SROASWP2+6
CONVERT SROASWP2+6, MANUAL+4
DELETE SROASWP2+6, MANUAL+4
HELP MANUAL+2
MANUAL MANUAL+2
MOVE CONVERT
MSGLINE CONVERT+5
SENDMSG SROASWP2+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A CONVERT+2*!
CASE CHECK+1!
CASE( CHECK+1*
CASE(1 CHECK+2, CHECK+4
CASE(2 CHECK+3
>> CNT SROASWP2+9*, MANUAL, CHECK+1*
DA CONVERT+2*, MOVE+7*!, DELETE+1*
>> DATA MOVE+5*, MOVE+9
>> DATE CHECK+1*, MSGLINE+1*, MSGLINE+2
>> DFN SROASWP2+6*, CHECK+1, MSGLINE+1*
DIE CONVERT+2*, MOVE+7*!
>> DIK DELETE+1*
DIR HELP+1!
DIR(0 HELP+1*
DR CONVERT+2*, MOVE+7*!
DTIME MANUAL+1
>> GLOBAL MOVE+5*, MOVE+9*
I SENDMSG+3~
>> OK SROASWP2+6, MANUAL+4*, CHECK+1*, CHECK+4*
>> P1 MOVE+5*, MOVE+9*
>> P2 MOVE+5*, MOVE+9*
>> SRA(0 SROASWP2+6*, MSGLINE+1*
>> SRAN SROASWP2+6*, MANUAL+4*, CONVERT+1, CONVERT+2, MOVE+5, MOVE+6, MOVE+7, DELETE+1, MSGLINE+1
>> SRANAME MSGLINE+1*, MSGLINE+2
>> SRCD CONVERT+1*, CONVERT+2
>> SRCNT SROASWP2+5*, MSGLINE+2*
>> SRDATE SROASWP2+2
SRDD CONVERT*, CONVERT+4!, MOVE+1, MOVE+2, MOVE+3, MOVE+4, MOVE+5, MOVE+7, MOVE+8
>> SRDT SROASWP2+2*
>> SRFIELD MOVE+7*, MOVE+8*, MOVE+9
>> SRSDATE SROASWP2+6*, CHECK+1
>> SRSOUT MANUAL+1*, MANUAL+2, MANUAL+3*, MANUAL+4, HELP+1*
>> SRSTATUS CONVERT+2*
SRTN CONVERT+2, MOVE+6, MOVE+7, MOVE+9, CHECK+1*, CHECK+2!, CHECK+4*, MSGLINE+2
>> SRTYPE CONVERT+2*
>> SRYN MANUAL+1*, MANUAL+2*, MANUAL+3
>> VA("PID" MSGLINE+1
>> VADM(1 MSGLINE+1
X SROASWP2+9*, CONVERT+4!, MOVE+8*
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*
Y SROASWP2+2*, CONVERT+4!, HELP+1
Z CONVERT+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All