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

Package: Surgery

Routine: SROA30


Information

SROA30 ;BIR/MAM - 30 DAY LETTERS AND MAIL MESSAGE ;01/26/06

Source Information

Source file <SROA30.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Surgery 5 ^SROALET  ^SROASS  ^SROSTOP  $$DIV^SROUTL0  ^SRSKILL  
VA Fileman 4 ^%DT  C^%DTC  ^DIE  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROA REPRINT LETTERS  SRONITE  

Entry Points

Name Comments DBIA/ICR reference
SDATE
EN ; Entry point when tasked daily
END
BEG ; Entry point when manually queued
ONE
ADD ; Lines 2 and 3 of street address
SRTN
IO
MSG
EDATE

External References

Name Field # of Occurrence
^%DT SDATE+1, SDATE+2, EDATE+1, EDATE+2
C^%DTC SDATE+2, EDATE+2, EN+2
^%ZIS IO+3
^%ZISC END+2
^%ZTLOAD IO+4
^DIE SROA30+3
^DIR SROA30+2, ONE+1
^SROALET BEG+1, BEG+3, SRTN+1
^SROASS ONE+2
^SROSTOP SRTN
$$DIV^SROUTL0 BEG+3
^SRSKILL END+2
^XMD MSG+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SROA30+2
Function Call: WRITE
  • Prompt: @IOF,!,?(80-$L(X)\2),X,!
  • Line Location: SROA30+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ONE+0
Function Call: WRITE
  • Prompt: !!,"This option will allow you to reprint the 30 day follow up letters for the date",!,"that they were originally printed. When printed automatically, the letters",!,"print 25 days after the date of operation."
  • Line Location: ONE+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SDATE+0
Function Call: WRITE
  • Prompt: !,"Enter the EARLIEST date for which you want letters printed."
  • Line Location: SDATE+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: EDATE+0
Function Call: WRITE
  • Prompt: !,"Enter the LATEST date for which you want letters printed."
  • Line Location: EDATE+1
Function Call: WRITE
  • Prompt: !!,"The ENDING date must be later than the BEGINNING date. Please try again."
  • Line Location: EDATE+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: IO+0
Function Call: WRITE
  • Prompt: !!,"The 30 Day Letter will not print because the case selected has been cancelled.",!!,"Press <RET> to continue "
  • Line Location: IO+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: IO+1
Function Call: WRITE
  • Prompt: !!,"The 30 Day Letter will not print because for the case selected,",!,"the field, TIME PATIENT OUT OF OR, has not been filled in.",!!,"Press <RET> to continue "
  • Line Location: IO+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: IO+2
Function Call: WRITE
  • Prompt: !!,"The 30 Day Letter will not print because the patient has a date of death.",!!,"Press <RET> to continue "
  • Line Location: IO+2
Function Call: WRITE
  • Prompt: !
  • Line Location: IO+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Routine Call
  • DIE
  • Line Location:
    • SROA30+3
Routine Call
  • DIR
  • Line Location:
    • SROA30+2
    • ONE+1
Routine Call
  • %ZIS
  • Line Location:
    • IO+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] IO+2
^SRF - [#130] IO, IO+1, MSG+1
^SRF("AC" BEG+2, BEG+3, EN+2, SRTN+1
^XMB("NETNAME" MSG+2

Label References

Name Line Occurrences
ADD MSG+3
EDATE EDATE+1, EDATE+2
END SROA30+2, ONE, ONE+1, ONE+2, SDATE, EDATE, IO, IO+1, IO+2, IO+3
, IO+4, BEG+1, BEG+4, EN+3
IO ONE+2
MSG BEG+3, SRTN+1
SDATE SDATE+1, SDATE+2, EDATE+3
SRTN EN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT SDATE+1*, SDATE+2*, EDATE+1*, EDATE+2*
%ZIS IO+3!*
%ZIS("A" IO+3*
DA SROA30+3!*
>> DFN IO+2
DIE SROA30+3!*
DIR SROA30+2!, ONE+1!
DIR("?" ONE*
DIR("A" SROA30+2*, ONE+1*
DIR("B" SROA30+2*, ONE+1*
DIR(0 SROA30+2*, ONE+1*
DR SROA30+3!*
DT EN+2
DTIME SDATE, EDATE, IO, IO+1, IO+2
>> DTOUT SROA30+2, ONE+1
>> DUOUT SROA30+2, ONE+1
I MSG+5*, MSG+8~
IO BEG+1, EN+1
IO("Q" IO+3!, IO+4!
IOF SROA30+2, SROA30+3, ONE, END+1, END+2
IOST END
POP IO+3!
>> SEX MSG+6*, MSG+7
>> SRADATE MSG+1*, MSG+3
>> SRAMAN ONE+3*, BEG+3, SRTN+1
SRAMSG MSG+3!
SRAMSG( MSG+4*, MSG+5*, MSG+7*
SRAMSG(1 MSG+3*
SRAMSG(2 MSG+3*
SRAMSG(3 MSG+3*
SRAMSG(4 MSG+3*
SRAMSG(5 MSG+3*
SRAMSG(6 ADD+1*
SRAMSG(7 ADD+2*
>> SRCNT MSG+3*, MSG+4*, MSG+5, MSG+7, ADD+1*, ADD+2*
>> SREND EDATE+2*, EDATE+3, BEG+2*, EN+2*
>> SRHALT SRTN
>> SRNM MSG+3, MSG+7
>> SRPRINT END*, END+1
>> SRSDATE BEG+2*, BEG+3, EN+2*, SRTN+1
>> SRSITE SROA30+3
>> SRSITE("DIV" SROA30+3
>> SRSITE("SITE" SROA30+3
>> SRSOUT SROA30+2*, ONE, ONE+1*, ONE+2*, SDATE*, EDATE*, IO+3*, IO+4*, BEG+2*, EN+1*
, EN+2, SRTN*
>> SRSTART SDATE+2*, EDATE+3, BEG+2
SRTN ONE+2, IO, IO+1, IO+2, BEG+1, BEG+3*, SRTN+1*, MSG+1, MSG+3, END+2!
>> SRYN EN+1*
>> STATE MSG+4
>> VADM(1 BEG+3, SRTN+1, MSG
>> VADM(5 MSG+6
VAIN END+2!
VAINDT END+2!
>> VAPA(1 MSG+3
>> VAPA(2 MSG+3, ADD+1
>> VAPA(3 ADD+2
>> VAPA(4 MSG+4
>> VAPA(6 MSG+4
>> X SROA30+3*, SDATE*, SDATE+1*, SDATE+2*, EDATE*, EDATE+1*, EDATE+2*, IO*, IO+1*, IO+2*
, EN+2
>> X1 SDATE+2*, EDATE+2*, EN+2*
>> X2 SDATE+2*, EDATE+2*, EN+2*
>> XMDUZ MSG*
>> XMSUB MSG*
>> XMTEXT MSG+8*
>> XMY("G.RISK A SSESSMENT@" , MSG+2*
>> Y SROA30+3, ONE+2, SDATE+2, EDATE+2, MSG+1*
>> ZTDESC IO+4*
>> ZTQUEUED SRTN, END+1
>> ZTREQ END+1*
>> ZTRTN IO+4*
>> ZTSAVE("SR*" IO+4*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All