WV16PST ;HIOFO/FT-WV*1*16 POST INSTALLATION ROUTINE ;6/29/04 11:04
;;1.0;WOMEN'S HEALTH;**16**;Sep 30, 1998
;
; This routine uses the following IAs:
; #1157 - ^XPDMENU (supported)
; #2916 - ^DDMOD (supported)
; #10063 - ^%ZTLOAD (supported)
; #10141 - ^XPDUTL (supported)
;
EN ; Start the post-installation
D EN1,EN2,EN3,EN4
Q
EN1 ; Add/edit FILE 790.31 entries
N WVERR,WVFDA,WVIEN
I $O(^WV(790.31,"B","No Evidence of Malignancy",0))'>0 D ;exists?
.S WVFDA(790.31,"+1,",.01)="No Evidence of Malignancy"
.S WVFDA(790.31,"+1,",.02)=90
.S WVFDA(790.31,"+1,",.03)=$O(^WV(790.2,"B","MAMMOGRAM DX BILAT",0))
.S WVFDA(790.31,"+1,",.04)=$O(^WV(790.2,"B","MAMMOGRAM DX UNILAT",0))
.S WVFDA(790.31,"+1,",.05)=$O(^WV(790.2,"B","MAMMOGRAM SCREENING",0))
.S WVFDA(790.31,"+1,",.06)=$O(^WV(790.2,"B","PAP SMEAR",0))
.S WVFDA(790.31,"+1,",.07)=$O(^WV(790.2,"B","BREAST ULTRASOUND",0))
.S WVFDA(790.31,"+1,",.2)=0
.S WVFDA(790.31,"+1,",.21)=0
.S WVIEN=""
.D UPDATE^DIE("","WVFDA","WVIEN")
.Q
K WVDFA,WVIEN
I $O(^WV(790.31,"B","Abnormal",0))'>0 D ;exists?
.S WVFDA(790.31,"+1,",.01)="Abnormal"
.S WVFDA(790.31,"+1,",.02)=90
.S WVFDA(790.31,"+1,",.03)=$O(^WV(790.2,"B","MAMMOGRAM DX BILAT",0))
.S WVFDA(790.31,"+1,",.04)=$O(^WV(790.2,"B","MAMMOGRAM DX UNILAT",0))
.S WVFDA(790.31,"+1,",.05)=$O(^WV(790.2,"B","MAMMOGRAM SCREENING",0))
.S WVFDA(790.31,"+1,",.06)=$O(^WV(790.2,"B","PAP SMEAR",0))
.S WVFDA(790.31,"+1,",.07)=$O(^WV(790.2,"B","BREAST ULTRASOUND",0))
.S WVFDA(790.31,"+1,",.2)=0
.S WVFDA(790.31,"+1,",.21)=1
.S WVIEN=""
.D UPDATE^DIE("","WVFDA","WVIEN")
.Q
; Add 'BREAST ULTRASOUND' as an associated procedure to 'Unsatisfactory
; for Dx'.
K WVFDA,WVIEN
S WVIEN=$O(^WV(790.31,"B","Unsatisfactory for Dx",0))
I WVIEN D
.S WVFDA(790.31,WVIEN_",",.14)=$O(^WV(790.2,"B","BREAST ULTRASOUND",0))
.D FILE^DIE("","WVFDA","WVERR")
.Q
Q
EN2 ; Option/menu changes
; Add WV PAP SMEAR SNOMED CODES to WV MENU-FILE MAINTENANCE menu.
N WVFLAG,WVMENU,WVOPTION,WVORDER,WVSYN
S WVMENU="WV MENU-FILE MAINTENANCE"
S WVOPTION="WV PAP SMEAR SNOMED CODES",WVSYN="PAP",WVORDER=13
S WVFLAG=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
Q
EN3 ; Create and populate AC index on FILE 790.1
; task job
N WVMESAGE,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
S ZTRTN="Q4^WV16PST",ZTDESC="WV*1*16 INSTALLATION"
S ZTIO="",ZTDTH=$H
D ^%ZTLOAD
S WVMESAGE="Will build new 'AC' x-ref on FILE 790.1 in background job #"_$G(ZTSK)
D MES^XPDUTL(WVMESAGE)
Q
Q4 ; Adding AC Index for WV PROCEDURE file (#790.1)
I $D(ZTQUEUED) S ZTREQ="@"
N MSG,RESULT,XREF
S XREF("FILE")=790.1
S XREF("ROOT FILE")=790.1
S XREF("TYPE")="REGULAR"
S XREF("SHORT DESCR")="Patient and Date of Procedure"
S XREF("DESCR",1)="This index consists of patient DFN and date of procedure."
S XREF("DESCR",2)="ex: ^WV(790.1,'AC',DFN,Date of Procedure,DA)"
S XREF("USE")="SORTING ONLY"
S XREF("EXECUTION")="R"
S XREF("ACTIVITY")="IR"
S XREF("VAL",1)=.02
S XREF("VAL",1,"SUBSCRIPT")=1
S XREF("VAL",2)=.12
S XREF("VAL",2,"SUBSCRIPT")=2
S XREF("NAME")="AC"
D CREIXN^DDMOD(.XREF,"S",.RESULT,"","MSG")
Q
EN4 ; Add new purposes of notification to FILE 790.404
N WVFDA,WVIEN,WVLETTER,WVLOOP,WVLOOP1,WVNAME,WVNODE
D LETTER
F WVLOOP=1:1 S WVNODE=$T(EN6A+WVLOOP) Q:$P(WVNODE,";",3)="" D
.S WVNAME=$P(WVNODE,";",3)
.Q:WVNAME=""
.Q:$D(^WV(790.404,"B",WVNAME)) ;already exists
.K WVFDA
.S WVFDA(790.404,"+1,",.01)=WVNAME
.S WVFDA(790.404,"+1,",.04)=1 ;active: 1=yes
.S WVFDA(790.404,"+1,",.02)=$P(WVNODE,";",4) ;priority code
.S WVFDA(790.404,"+1,",.06)=$P(WVNODE,";",5) ;result/reminder type
.S WVFDA(790.404,"+1,",.05)=$P(WVNODE,";",6) ;br or cx type
.I $P(WVNODE,";",7)]"" D
..S WVFDA(790.404,"+1,",.07)=$$BRTXIEN^WVRPCPR1($P(WVNODE,";",7)) ;br tx need
..Q
.I $P(WVNODE,";",8)]"" D
..S WVFDA(790.404,"+1,",.08)=$P(WVNODE,";",8) ;br tx due date
..Q
.I $P(WVNODE,";",9)]"" D
..S WVFDA(790.404,"+1,",.09)=$$CXTXIEN^WVRPCPR1($P(WVNODE,";",9)) ;cx tx need
..Q
.I $P(WVNODE,";",10)]"" D
..S WVFDA(790.404,"+1,",.1)=$P(WVNODE,";",10) ;cx tx due date
..Q
.K WVIEN
.D UPDATE^DIE("","WVFDA","WVIEN")
.Q:+$G(WVLETTER(0))'>0 ;copy generic letter text for new purpose
.S WVLOOP1=0
.S ^WV(790.404,WVIEN(1),1,0)="^^"_WVLETTER(0)_U_WVLETTER(0)_U_DT
.F WVLOOP1=1:1:WVLETTER(0) D
..S ^WV(790.404,WVIEN(1),1,WVLOOP1,0)=WVLETTER(WVLOOP1)
..Q
.Q
Q
;;(3)name;(4)priority;(5)result/reminder;(6)br/cx;(7)br tx need;(8)br tx due date;(9)cx tx need;(10)cx tx due date
EN6A ;New purposes of notification
;;CPRS UPDATE PAP TX NEED 4M;2;0;CX;;;Repeat PAP;4M
;;CPRS UPDATE PAP TX NEED 6M;2;0;CX;;;Repeat PAP;6M
;;CPRS UPDATE PAP TX NEED 3Y;3;0;CX;;;Routine PAP;3Y
;;CPRS UPDATE PAP TX NEED 2Y;3;0;CX;;;Routine PAP;2Y
;;CPRS UPDATE PAP TX NEED 1Y;3;0;CX;;;Routine PAP;1Y
;;CPRS UPDATE MAM TX NEED 1Y;3;0;BR;Mammogram, Screening;1Y;;
;;CPRS UPDATE MAM TX NEED 2Y;3;0;BR;Mammogram, Screening;2Y;;
;;CPRS UPDATE MAM TX NEED 6M;2;0;BR;Mammogram, Repeat;6M;;
;;CPRS UPDATE MAM TX NEED 4M;2;0;BR;Mammogram, Repeat;4M;;
;;MAM result NEM, next MAM 1Y;3;1;BR;Mammogram, Screening;1Y;;
;;MAM result NEM, next MAM 2Y;3;1;BR;Mammogram, Screening;2Y;;
;;MAM result NEM, next MAM 4M;2;1;BR;Mammogram, Repeat;4M;;
;;MAM result NEM, next MAM 6M;2;1;BR;Mammogram, Repeat;6M;;
;;MAM result abnormal, F/U MAM 4M;2;1;BR;Mammogram, Followup;4M;;
;;MAM result abnormal, F/U MAM 6M;2;1;BR;Mammogram, Followup;6M;;
;;PAP result NEM, next PAP 1Y;3;1;CX;;;Routine PAP;1Y
;;PAP result NEM, next PAP 2Y;3;1;CX;;;Routine PAP;2Y
;;PAP result NEM, next PAP 3Y;3;1;CX;;;Routine PAP;3Y
;;PAP result NEM, next PAP 4M;2;1;CX;;;Repeat PAP;4M
;;PAP result NEM, next PAP 6M;2;1;CX;;;Repeat PAP;6M
;;PAP result abnormal, F/U PAP 4M;2;1;CX;;;Follow-up PAP;4M
;;PAP result abnormal, F/U PAP 6M;2;1;CX;;;Follow-up PAP;6M
;;MAM unsatisfactory, need repeat;2;1;BR;Mammogram, Repeat;0D;;
;;Pap unsatisfactory, need repeat;2;1;CX;;;Repeat PAP;0D
;;PAP result NEM, further screening not required;3;1;CX;;;;
;;MAM result NEM, further screening not required;3;1;BR;;;;
;;;
Q
LETTER ; Copy generic letter text into local array
N WVCOUNT,WVLOOP,WVNODE
K WVLETTER
S (WVCOUNT,WVLOOP)=0
F WVLOOP=1:1 S WVNODE=$T(LTRTEXT+WVLOOP) Q:$P(WVNODE,";",3)="" D
.S WVCOUNT=WVCOUNT+1
.S WVLETTER(WVCOUNT)=$P(WVNODE,";",3)
.Q
S WVLETTER(0)=WVCOUNT
Q
LTRTEXT ;;Generic letter text
;;|NOWRAP|;
;; ;
;;|CENTER("Women's Health Clinic")|;
;; ;
;;|CENTER("Your Street")|;
;; ;
;;|CENTER("Your City, ST Zip Code")|;
;; ;
;; ;
;; |TODAY|;
;; ;
;; ;
;; |$E(SSN#,6,9)|;
;; |$P(NAME,",",2)| |$P(NAME,",")|;
;; |COMPLETE ADDRESS|;
;; ;
;; ;
;; ;
;; ;
;; ;
;;- - - -;
;; ;
;; Dear Ms. |$P(NAME,",",1)|,;
;; ;
;; This is the body of the letter and should be edited to say what;
;; you want for this Purpose of Notification.;
;; ;
;; ;
;; Sincerely,;
;; ;
;; ;
;; ;
;; Your Name;
;; Women's Health Program;
;; phone: nnn-nnnn;
;; ;
;; ;
;; printed: |NOW|;
;;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWV16PST 7350 printed Dec 13, 2024@02:46:28 Page 2
WV16PST ;HIOFO/FT-WV*1*16 POST INSTALLATION ROUTINE ;6/29/04 11:04
+1 ;;1.0;WOMEN'S HEALTH;**16**;Sep 30, 1998
+2 ;
+3 ; This routine uses the following IAs:
+4 ; #1157 - ^XPDMENU (supported)
+5 ; #2916 - ^DDMOD (supported)
+6 ; #10063 - ^%ZTLOAD (supported)
+7 ; #10141 - ^XPDUTL (supported)
+8 ;
EN ; Start the post-installation
+1 DO EN1
DO EN2
DO EN3
DO EN4
+2 QUIT
EN1 ; Add/edit FILE 790.31 entries
+1 NEW WVERR,WVFDA,WVIEN
+2 ;exists?
IF $ORDER(^WV(790.31,"B","No Evidence of Malignancy",0))'>0
Begin DoDot:1
+3 SET WVFDA(790.31,"+1,",.01)="No Evidence of Malignancy"
+4 SET WVFDA(790.31,"+1,",.02)=90
+5 SET WVFDA(790.31,"+1,",.03)=$ORDER(^WV(790.2,"B","MAMMOGRAM DX BILAT",0))
+6 SET WVFDA(790.31,"+1,",.04)=$ORDER(^WV(790.2,"B","MAMMOGRAM DX UNILAT",0))
+7 SET WVFDA(790.31,"+1,",.05)=$ORDER(^WV(790.2,"B","MAMMOGRAM SCREENING",0))
+8 SET WVFDA(790.31,"+1,",.06)=$ORDER(^WV(790.2,"B","PAP SMEAR",0))
+9 SET WVFDA(790.31,"+1,",.07)=$ORDER(^WV(790.2,"B","BREAST ULTRASOUND",0))
+10 SET WVFDA(790.31,"+1,",.2)=0
+11 SET WVFDA(790.31,"+1,",.21)=0
+12 SET WVIEN=""
+13 DO UPDATE^DIE("","WVFDA","WVIEN")
+14 QUIT
End DoDot:1
+15 KILL WVDFA,WVIEN
+16 ;exists?
IF $ORDER(^WV(790.31,"B","Abnormal",0))'>0
Begin DoDot:1
+17 SET WVFDA(790.31,"+1,",.01)="Abnormal"
+18 SET WVFDA(790.31,"+1,",.02)=90
+19 SET WVFDA(790.31,"+1,",.03)=$ORDER(^WV(790.2,"B","MAMMOGRAM DX BILAT",0))
+20 SET WVFDA(790.31,"+1,",.04)=$ORDER(^WV(790.2,"B","MAMMOGRAM DX UNILAT",0))
+21 SET WVFDA(790.31,"+1,",.05)=$ORDER(^WV(790.2,"B","MAMMOGRAM SCREENING",0))
+22 SET WVFDA(790.31,"+1,",.06)=$ORDER(^WV(790.2,"B","PAP SMEAR",0))
+23 SET WVFDA(790.31,"+1,",.07)=$ORDER(^WV(790.2,"B","BREAST ULTRASOUND",0))
+24 SET WVFDA(790.31,"+1,",.2)=0
+25 SET WVFDA(790.31,"+1,",.21)=1
+26 SET WVIEN=""
+27 DO UPDATE^DIE("","WVFDA","WVIEN")
+28 QUIT
End DoDot:1
+29 ; Add 'BREAST ULTRASOUND' as an associated procedure to 'Unsatisfactory
+30 ; for Dx'.
+31 KILL WVFDA,WVIEN
+32 SET WVIEN=$ORDER(^WV(790.31,"B","Unsatisfactory for Dx",0))
+33 IF WVIEN
Begin DoDot:1
+34 SET WVFDA(790.31,WVIEN_",",.14)=$ORDER(^WV(790.2,"B","BREAST ULTRASOUND",0))
+35 DO FILE^DIE("","WVFDA","WVERR")
+36 QUIT
End DoDot:1
+37 QUIT
EN2 ; Option/menu changes
+1 ; Add WV PAP SMEAR SNOMED CODES to WV MENU-FILE MAINTENANCE menu.
+2 NEW WVFLAG,WVMENU,WVOPTION,WVORDER,WVSYN
+3 SET WVMENU="WV MENU-FILE MAINTENANCE"
+4 SET WVOPTION="WV PAP SMEAR SNOMED CODES"
SET WVSYN="PAP"
SET WVORDER=13
+5 SET WVFLAG=$$ADD^XPDMENU(WVMENU,WVOPTION,WVSYN,WVORDER)
+6 QUIT
EN3 ; Create and populate AC index on FILE 790.1
+1 ; task job
+2 NEW WVMESAGE,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
+3 SET ZTRTN="Q4^WV16PST"
SET ZTDESC="WV*1*16 INSTALLATION"
+4 SET ZTIO=""
SET ZTDTH=$HOROLOG
+5 DO ^%ZTLOAD
+6 SET WVMESAGE="Will build new 'AC' x-ref on FILE 790.1 in background job #"_$GET(ZTSK)
+7 DO MES^XPDUTL(WVMESAGE)
+8 QUIT
Q4 ; Adding AC Index for WV PROCEDURE file (#790.1)
+1 IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+2 NEW MSG,RESULT,XREF
+3 SET XREF("FILE")=790.1
+4 SET XREF("ROOT FILE")=790.1
+5 SET XREF("TYPE")="REGULAR"
+6 SET XREF("SHORT DESCR")="Patient and Date of Procedure"
+7 SET XREF("DESCR",1)="This index consists of patient DFN and date of procedure."
+8 SET XREF("DESCR",2)="ex: ^WV(790.1,'AC',DFN,Date of Procedure,DA)"
+9 SET XREF("USE")="SORTING ONLY"
+10 SET XREF("EXECUTION")="R"
+11 SET XREF("ACTIVITY")="IR"
+12 SET XREF("VAL",1)=.02
+13 SET XREF("VAL",1,"SUBSCRIPT")=1
+14 SET XREF("VAL",2)=.12
+15 SET XREF("VAL",2,"SUBSCRIPT")=2
+16 SET XREF("NAME")="AC"
+17 DO CREIXN^DDMOD(.XREF,"S",.RESULT,"","MSG")
+18 QUIT
EN4 ; Add new purposes of notification to FILE 790.404
+1 NEW WVFDA,WVIEN,WVLETTER,WVLOOP,WVLOOP1,WVNAME,WVNODE
+2 DO LETTER
+3 FOR WVLOOP=1:1
SET WVNODE=$TEXT(EN6A+WVLOOP)
if $PIECE(WVNODE,";",3)=""
QUIT
Begin DoDot:1
+4 SET WVNAME=$PIECE(WVNODE,";",3)
+5 if WVNAME=""
QUIT
+6 ;already exists
if $DATA(^WV(790.404,"B",WVNAME))
QUIT
+7 KILL WVFDA
+8 SET WVFDA(790.404,"+1,",.01)=WVNAME
+9 ;active: 1=yes
SET WVFDA(790.404,"+1,",.04)=1
+10 ;priority code
SET WVFDA(790.404,"+1,",.02)=$PIECE(WVNODE,";",4)
+11 ;result/reminder type
SET WVFDA(790.404,"+1,",.06)=$PIECE(WVNODE,";",5)
+12 ;br or cx type
SET WVFDA(790.404,"+1,",.05)=$PIECE(WVNODE,";",6)
+13 IF $PIECE(WVNODE,";",7)]""
Begin DoDot:2
+14 ;br tx need
SET WVFDA(790.404,"+1,",.07)=$$BRTXIEN^WVRPCPR1($PIECE(WVNODE,";",7))
+15 QUIT
End DoDot:2
+16 IF $PIECE(WVNODE,";",8)]""
Begin DoDot:2
+17 ;br tx due date
SET WVFDA(790.404,"+1,",.08)=$PIECE(WVNODE,";",8)
+18 QUIT
End DoDot:2
+19 IF $PIECE(WVNODE,";",9)]""
Begin DoDot:2
+20 ;cx tx need
SET WVFDA(790.404,"+1,",.09)=$$CXTXIEN^WVRPCPR1($PIECE(WVNODE,";",9))
+21 QUIT
End DoDot:2
+22 IF $PIECE(WVNODE,";",10)]""
Begin DoDot:2
+23 ;cx tx due date
SET WVFDA(790.404,"+1,",.1)=$PIECE(WVNODE,";",10)
+24 QUIT
End DoDot:2
+25 KILL WVIEN
+26 DO UPDATE^DIE("","WVFDA","WVIEN")
+27 ;copy generic letter text for new purpose
if +$GET(WVLETTER(0))'>0
QUIT
+28 SET WVLOOP1=0
+29 SET ^WV(790.404,WVIEN(1),1,0)="^^"_WVLETTER(0)_U_WVLETTER(0)_U_DT
+30 FOR WVLOOP1=1:1:WVLETTER(0)
Begin DoDot:2
+31 SET ^WV(790.404,WVIEN(1),1,WVLOOP1,0)=WVLETTER(WVLOOP1)
+32 QUIT
End DoDot:2
+33 QUIT
End DoDot:1
+34 QUIT
+35 ;;(3)name;(4)priority;(5)result/reminder;(6)br/cx;(7)br tx need;(8)br tx due date;(9)cx tx need;(10)cx tx due date
EN6A ;New purposes of notification
+1 ;;CPRS UPDATE PAP TX NEED 4M;2;0;CX;;;Repeat PAP;4M
+2 ;;CPRS UPDATE PAP TX NEED 6M;2;0;CX;;;Repeat PAP;6M
+3 ;;CPRS UPDATE PAP TX NEED 3Y;3;0;CX;;;Routine PAP;3Y
+4 ;;CPRS UPDATE PAP TX NEED 2Y;3;0;CX;;;Routine PAP;2Y
+5 ;;CPRS UPDATE PAP TX NEED 1Y;3;0;CX;;;Routine PAP;1Y
+6 ;;CPRS UPDATE MAM TX NEED 1Y;3;0;BR;Mammogram, Screening;1Y;;
+7 ;;CPRS UPDATE MAM TX NEED 2Y;3;0;BR;Mammogram, Screening;2Y;;
+8 ;;CPRS UPDATE MAM TX NEED 6M;2;0;BR;Mammogram, Repeat;6M;;
+9 ;;CPRS UPDATE MAM TX NEED 4M;2;0;BR;Mammogram, Repeat;4M;;
+10 ;;MAM result NEM, next MAM 1Y;3;1;BR;Mammogram, Screening;1Y;;
+11 ;;MAM result NEM, next MAM 2Y;3;1;BR;Mammogram, Screening;2Y;;
+12 ;;MAM result NEM, next MAM 4M;2;1;BR;Mammogram, Repeat;4M;;
+13 ;;MAM result NEM, next MAM 6M;2;1;BR;Mammogram, Repeat;6M;;
+14 ;;MAM result abnormal, F/U MAM 4M;2;1;BR;Mammogram, Followup;4M;;
+15 ;;MAM result abnormal, F/U MAM 6M;2;1;BR;Mammogram, Followup;6M;;
+16 ;;PAP result NEM, next PAP 1Y;3;1;CX;;;Routine PAP;1Y
+17 ;;PAP result NEM, next PAP 2Y;3;1;CX;;;Routine PAP;2Y
+18 ;;PAP result NEM, next PAP 3Y;3;1;CX;;;Routine PAP;3Y
+19 ;;PAP result NEM, next PAP 4M;2;1;CX;;;Repeat PAP;4M
+20 ;;PAP result NEM, next PAP 6M;2;1;CX;;;Repeat PAP;6M
+21 ;;PAP result abnormal, F/U PAP 4M;2;1;CX;;;Follow-up PAP;4M
+22 ;;PAP result abnormal, F/U PAP 6M;2;1;CX;;;Follow-up PAP;6M
+23 ;;MAM unsatisfactory, need repeat;2;1;BR;Mammogram, Repeat;0D;;
+24 ;;Pap unsatisfactory, need repeat;2;1;CX;;;Repeat PAP;0D
+25 ;;PAP result NEM, further screening not required;3;1;CX;;;;
+26 ;;MAM result NEM, further screening not required;3;1;BR;;;;
+27 ;;;
+28 QUIT
LETTER ; Copy generic letter text into local array
+1 NEW WVCOUNT,WVLOOP,WVNODE
+2 KILL WVLETTER
+3 SET (WVCOUNT,WVLOOP)=0
+4 FOR WVLOOP=1:1
SET WVNODE=$TEXT(LTRTEXT+WVLOOP)
if $PIECE(WVNODE,";",3)=""
QUIT
Begin DoDot:1
+5 SET WVCOUNT=WVCOUNT+1
+6 SET WVLETTER(WVCOUNT)=$PIECE(WVNODE,";",3)
+7 QUIT
End DoDot:1
+8 SET WVLETTER(0)=WVCOUNT
+9 QUIT
LTRTEXT ;;Generic letter text
+1 ;;|NOWRAP|;
+2 ;; ;
+3 ;;|CENTER("Women's Health Clinic")|;
+4 ;; ;
+5 ;;|CENTER("Your Street")|;
+6 ;; ;
+7 ;;|CENTER("Your City, ST Zip Code")|;
+8 ;; ;
+9 ;; ;
+10 ;; |TODAY|;
+11 ;; ;
+12 ;; ;
+13 ;; |$E(SSN#,6,9)|;
+14 ;; |$P(NAME,",",2)| |$P(NAME,",")|;
+15 ;; |COMPLETE ADDRESS|;
+16 ;; ;
+17 ;; ;
+18 ;; ;
+19 ;; ;
+20 ;; ;
+21 ;;- - - -;
+22 ;; ;
+23 ;; Dear Ms. |$P(NAME,",",1)|,;
+24 ;; ;
+25 ;; This is the body of the letter and should be edited to say what;
+26 ;; you want for this Purpose of Notification.;
+27 ;; ;
+28 ;; ;
+29 ;; Sincerely,;
+30 ;; ;
+31 ;; ;
+32 ;; ;
+33 ;; Your Name;
+34 ;; Women's Health Program;
+35 ;; phone: nnn-nnnn;
+36 ;; ;
+37 ;; ;
+38 ;; printed: |NOW|;
+39 ;;;
