Routine: WV7PST

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Start post-install
XREF	; Index new cross-reference added to File 790.2 (CPT CODE - .08)
RCODE	; Put R code in PACKAGE (#.05), File 790.2
QMAIL	; Queue mail message
MAIL	; Send message to Default Case Managers to ; 1) enter parameters for new procedures ; 2) include \|APPOINTMENTS\| on form letters (if desired).
SEND	; Create mail message and send
LINE()	; Increment line counter by 1
ZERO	; Set Fields .77, .78 and .79 in File 790.71 entries to zero ; (pieces 28, 29 & 30 of node 2).

FileNo	Call Tags
^WV(790.2 - [#790.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^WV(790.02 - [#790.02]	MAIL+5, MAIL+6
^WV(790.2 - [#790.2]	RCODE+3
^WV(790.71 - [#790.71]	ZERO+4, ZERO+5, ZERO+8*

Name	Line Occurrences
$$LINE	SEND+3, SEND+4, SEND+5, SEND+6, SEND+7, SEND+8, SEND+9, SEND+10, SEND+11, SEND+12 , SEND+13, SEND+14, SEND+15, SEND+16, SEND+17, SEND+18, SEND+19, SEND+20, SEND+21, SEND+22 , SEND+23, SEND+24, SEND+25, SEND+26, SEND+27, SEND+28, SEND+29, SEND+30, SEND+31, SEND+32 , SEND+33, SEND+34, SEND+35, SEND+36, SEND+37, SEND+38, SEND+39, SEND+40, SEND+41
QMAIL	EN+2
RCODE	EN+1
XREF	EN+1
ZERO	EN+1

Name	Field # of Occurrence
DA	RCODE+1~, RCODE+3*, RCODE+4
DIE	RCODE+1~, RCODE+5*
DIK	XREF+1~, XREF+2*
DIK(1	XREF+2*
DR	RCODE+1~, RCODE+5*
U	MAIL+6, ZERO+7
WVIEN	MAIL+3~, MAIL+6*, MAIL+7, MAIL+8
WVLINE	MAIL+3~, MAIL+4, LINE+1, LINE+2
WVLOOP	RCODE+1~, RCODE+2, RCODE+3, ZERO+2~, ZERO+3, ZERO+4*, ZERO+5, ZERO+8
WVMSG	MAIL+3~
WVMSG(	SEND+3, SEND+4, SEND+5, SEND+6, SEND+7, SEND+8, SEND+9, SEND+10, SEND+11, SEND+12 , SEND+13, SEND+14, SEND+15, SEND+16, SEND+17, SEND+18, SEND+19, SEND+20, SEND+21, SEND+22 , SEND+23, SEND+24, SEND+25, SEND+26, SEND+27, SEND+28, SEND+29, SEND+30, SEND+31, SEND+32 , SEND+33, SEND+34, SEND+35, SEND+36, SEND+37, SEND+38, SEND+39, SEND+40, SEND+41*
WVNODE	ZERO+2~, ZERO+5, ZERO+6, ZERO+7, ZERO+8
WVSITE	MAIL+3~, MAIL+4, MAIL+5, MAIL+6
WVX	ZERO+2~, ZERO+7*
XMDUZ	MAIL+3~, SEND+1*
XMSUB	MAIL+3~, SEND+2*
XMTEXT	MAIL+3~, SEND+42*
XMY	MAIL+3~
XMY(	MAIL+8*
XMY(0	MAIL+10
ZTDESC	QMAIL+1~, QMAIL+2*
ZTDTH	QMAIL+1~, QMAIL+3*
ZTIO	QMAIL+1~, QMAIL+3*
ZTRTN	QMAIL+1~, QMAIL+2*
ZTSAVE	QMAIL+1~