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

Package: Mental Health

Routine: YSGAFUTL


Information

YSGAFUTL ;DALCIOFO/MJD-GAF CLEANUP UTILITY ROUTINE ;02/17/99

Source Information

Source file <YSGAFUTL.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 2 ^DIE  ^DIK  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  
Registration 1 IN5^VADPT  

Entry Points

Name Comments DBIA/ICR reference
START ;Set up task
EN ; Main subroutine
DELREC ; Delete records
TOTREP ;Write totals to ^TMP
SPC ;
DSH ;
MAILIT ; Mail totals
YSLN ;Store to ^TMP for MAILMAN message
DELCHK ;Check records and flag for deletion if necessary
CLNUP ;Clean up variables

External References

Name Field # of Occurrence
^%ZTLOAD START+13
^DIE EN+37
^DIK DELREC+3
IN5^VADPT EN+28
^XMD MAILIT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The Mental Health GAF Utility has been Tasked, job# ",ZTSK,"...",!
  • Line Location: START+15
Routine Call
  • DIE
  • Line Location:
    • EN+37

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YSD(627.8 - [#627.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("YSGAFUTL" EN+2!, DELREC+1, DELREC+3, DELCHK+8*, CLNUP+6!
^TMP("YSGMM" EN+2!, YSLN+2*, CLNUP+6!
^YSD(627.8 - [#627.8] EN+10, EN+11, EN+24, EN+36, EN+38, EN+45, EN+47, EN+48, DELCHK+3, DELCHK+4
, DELCHK+5, DELCHK+6

Label References

Name Line Occurrences
CLNUP START+5, EN+58
DELCHK EN+17, EN+52, EN+54
DELREC EN+57
DSH TOTREP+9, TOTREP+10, TOTREP+13, TOTREP+22, TOTREP+24
MAILIT EN+58
SPC TOTREP+3, TOTREP+4, TOTREP+14, TOTREP+15, TOTREP+24, TOTREP+25
TOTREP EN+57
YSLN TOTREP+3, TOTREP+4, TOTREP+8, TOTREP+10, TOTREP+12, TOTREP+15, TOTREP+17, TOTREP+18, TOTREP+19, TOTREP+20
, TOTREP+22, TOTREP+24, TOTREP+25, TOTREP+28, TOTREP+31, SPC+1, DSH+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA EN+34*, EN+36, EN+38, DELREC+2*, DELREC+3*
DFN EN+26*, CLNUP+5!
>> DIE EN+34*
>> DIK DELREC+2*
>> DR EN+35*
DTIME MAILIT+1*
DUZ START+2, MAILIT+4
FLGDATA DELCHK+1*, DELCHK+2, DELCHK+3*, DELCHK+4, DELCHK+5*, DELCHK+6*, CLNUP+5!
FLGDEL EN+52, EN+54, DELCHK+1*, DELCHK+8*, CLNUP+5!
>> I DELCHK+2*, DELCHK+3
MDFLG EN+14*, EN+16*, DELCHK+9, CLNUP+6!
U EN+4*, EN+12, EN+13, EN+19, EN+24, EN+41
VAERR CLNUP+5!
VAIP CLNUP+2!
VAIP("D" EN+27*
VAIP(1 EN+29
X CLNUP+1!
XCNP CLNUP+5!
XMDUZ MAILIT+7*, CLNUP+5!
>> XMSUB MAILIT+2*
>> XMTEXT MAILIT+3*
>> XMY( MAILIT+4*
>> XMY("DEVLIN,MARK@ISC-DALLAS.DOMAIN.EXT" MAILIT+6*
>> XMY("YOUNG,TIM@ISC-DALLAS.DOMAIN.EXT" MAILIT+5*
XMZ CLNUP+5!
XTMP TOTREP+3*, TOTREP+4*, TOTREP+7*, TOTREP+8*, TOTREP+10*, TOTREP+11*, TOTREP+15*, TOTREP+16*, TOTREP+17*, TOTREP+18*
, TOTREP+19*, TOTREP+20*, TOTREP+21*, TOTREP+23*, TOTREP+25*, TOTREP+27*, TOTREP+28*, TOTREP+30*, TOTREP+31*, SPC+1*
, DSH+1*, YSLN+2, CLNUP+2!
Y CLNUP+1!
YSADT EN+6*, CLNUP+1!
YSAOF EN+5*, CLNUP+1!
YSAPATID EN+6*, CLNUP+1!
YSAX5 EN+41*, EN+42, CLNUP+3!
YSDDC EN+6*, EN+18*, TOTREP+29, TOTREP+30, CLNUP+3!
YSDEL EN+7*, TOTREP+2, TOTREP+21, DELCHK+9*, CLNUP+3!
YSEFLG EN+44*, EN+47, EN+48*, EN+49, CLNUP+3!
YSERC EN+6*, EN+49*, TOTREP+2, TOTREP+18, CLNUP+3!
YSERN EN+46*, EN+47*, EN+48, CLNUP+3!
YSGAFDT EN+13*, EN+15, EN+27, CLNUP+1!
YSGDC EN+7*, EN+56*, TOTREP+2, TOTREP+16, CLNUP+3!
YSGFDATE START+6*, EN+19*, EN+20, EN+22, CLNUP+2!
YSI EN+8*, EN+9, TOTREP+5*, TOTREP+7, TOTREP+10, TOTREP+13*, CLNUP+5!
YSIEN EN+6*, EN+10*, EN+11, EN+24, EN+34, EN+45, EN+47, EN+48, DELCHK+3, DELCHK+4
, DELCHK+5, DELCHK+6, DELCHK+8, CLNUP+2!
YSJ EN+9*, TOTREP+6*, TOTREP+7, TOTREP+8, CLNUP+5!
YSLN TOTREP+1*, YSLN+1*, YSLN+2, CLNUP+3!
YSNMC EN+7*, EN+55*, TOTREP+2, TOTREP+20, CLNUP+3!
YSO EN+11*, EN+12, EN+13, EN+19, EN+41, CLNUP+2!
YSP EN+24*, EN+41, CLNUP+3!
YSPATID EN+6*, EN+12*, EN+26, CLNUP+2!
YSPATYPE EN+24*, EN+31, EN+32*, EN+39, EN+51, CLNUP+4!
YSPIEN EN+6*, CLNUP+2!
YSPROV EN+41*, EN+42, CLNUP+4!
YSPTC EN+6*, EN+33*, TOTREP+26, TOTREP+27, CLNUP+4!
YSPTO EN+6*, EN+53*, TOTREP+2, TOTREP+19, CLNUP+4!
YSSPD START+6*, EN+20, CLNUP+2!
YSSTAT EN+29*, EN+31, EN+32, EN+35, CLNUP+4!
YSSTD START+6*, EN+20, CLNUP+2!
YSSUBT TOTREP+2*, TOTREP+23, TOTREP+25, CLNUP+3!
YSTOT EN+7*, EN+21*, TOTREP+11, TOTREP+25, CLNUP+4!
YSTOT( EN+9*, EN+23*, EN+39*, TOTREP+7, TOTREP+10
YSYEAR EN+11*, EN+22*, EN+23, EN+39, CLNUP+5!
>> ZTDESC START+11*
>> ZTIO START+12*
>> ZTQUEUED EN+1
>> ZTREQ EN+1*
>> ZTRTN START+7*
>> ZTSAVE("*" START+10*
ZTSK START+14, START+15, EN+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All