- ACHSY200 ; IHS/ITSC/PMF - FILE 200 CONVERSION ; [ 10/16/2001 8:16 AM ]
- ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
- ;
- ; This utility converts the existing field in the CHS package that
- ; is non-compliant with the File 200 conversion. That field is in
- ; the CHS FACILITY file, the DOCUMENT multiple, as field 80,
- ; REFERRAL PHYSICIAN. Field 80 (F80) prior to conversion is a
- ; pointer to file 6, PROVIDER, which in turn points to file 16,
- ; PERSON.
- ;
- ; This utility calls EN^AVAPCHK,RESULTS^AVAPCHK, and if 3, 6, 16,
- ; and 200 have the proper links, proceeds $ORDERing thru your CHS
- ; Purchase Orders, changing the pointer value for each F80 from
- ; a pointer to 6, to the equivalent pointer to 200.
- ;
- ; When the pointers have been converted, the data dictionary is
- ; mod'd to reflect the change in F80 from file 6 to file 200.
- ;
- ; NOTE: REFERRAL PHYSICIAN has not been included in any known
- ; report, and is of minimal value with the distribution of
- ; the Referred Care Information System. Therefore,
- ; minimal protections have been placed in this conversion.
- ;
- START ;
- D HELP^XBHELP("HELP","ACHSY200")
- I $P($G(^DD(9002080.01,80,0)),U,2)[200 W *7,!,"According to the data dictionary, the conversion has already completed:",!,^(0),! Q
- ;
- Q:'$$DIR^XBDIR("Y","Do you want to proceed with the File 200 Synch check","Y")
- D EN^AVAPCHK,RESULTS^AVAPCHK
- I '$D(^AVA("OK")) Q
- ;
- I $$DIR^XBDIR("Y","Would you like to Q the File 200 converison to TaskMan","Y") D Q
- . S ZTRTN="EN^ACHSY200",ZTDESC="CHS File 200 Conversion",ZTIO=""
- . D ^%ZTLOAD
- . I '$D(ZTSK) W *7,!,"Taskman interface failed..."
- . K ZTSK
- .Q
- ;
- I $D(DUOUT)!$D(DTOUT) W !,"You can use the programmer utilities menu to run this converison." Q
- ;
- EN ;EP - From TaskMan.
- ;
- N ACHSDIEN,ACHSP6,ACHS0,FAC
- ;
- S FAC=0
- F S FAC=$O(^ACHSF(FAC)) Q:'FAC D
- . Q:'$D(^ACHSF(FAC,"D",0)) S ACHSP0=$P(^(0),U,3)
- . W:'$D(ZTQUEUED) !,"Converting ",$P(^DIC(4,FAC,0),U),"..."
- . S ACHSDIEN=$G(^ACHSF(FAC,"F80"),0),DX=$X,DY=$Y
- . F S ACHSDIEN=$O(^ACHSF(FAC,"D",ACHSDIEN)) Q:'ACHSDIEN D
- .. I '$D(ZTQUEUED),'(ACHSDIEN#100) X IOXY W ACHSDIEN," of ",ACHSP0
- .. S ACHSP6=$$DOC^ACHS(3,5)
- .. I ACHSP6 S $P(^ACHSF(FAC,"D",ACHSDIEN,3),U,5)=$G(^DIC(16,ACHSP6,"A3"))
- .. S ^ACHSF(FAC,"F80")=ACHSDIEN
- ..Q
- .Q
- ;
- F %=0:0 S %=$O(^ACHSF(%)) Q:'% K ^ACHSF(%,"F80")
- S $P(^DD(9002080.01,80,0),U,2,3)="P200'^VA(200,"
- I '$D(ZTQUEUED) W !,"CHS Conversion to 200 successfully completed."
- Q
- ;
- HELP ;
- ;;CHS File 200 Conversion....
- ;;
- ;;You'll have the chance to Q to TaskMan after the synch check.
- ;;
- ;;You can use the programmer utilities menu on the CHS main menu
- ;; to run the File 200 converison, anytime you want.
- ;;
- ;;
- ACHSY200 ; IHS/ITSC/PMF - FILE 200 CONVERSION ; [ 10/16/2001 8:16 AM ]
- +1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
- +2 ;
- +3 ; This utility converts the existing field in the CHS package that
- +4 ; is non-compliant with the File 200 conversion. That field is in
- +5 ; the CHS FACILITY file, the DOCUMENT multiple, as field 80,
- +6 ; REFERRAL PHYSICIAN. Field 80 (F80) prior to conversion is a
- +7 ; pointer to file 6, PROVIDER, which in turn points to file 16,
- +8 ; PERSON.
- +9 ;
- +10 ; This utility calls EN^AVAPCHK,RESULTS^AVAPCHK, and if 3, 6, 16,
- +11 ; and 200 have the proper links, proceeds $ORDERing thru your CHS
- +12 ; Purchase Orders, changing the pointer value for each F80 from
- +13 ; a pointer to 6, to the equivalent pointer to 200.
- +14 ;
- +15 ; When the pointers have been converted, the data dictionary is
- +16 ; mod'd to reflect the change in F80 from file 6 to file 200.
- +17 ;
- +18 ; NOTE: REFERRAL PHYSICIAN has not been included in any known
- +19 ; report, and is of minimal value with the distribution of
- +20 ; the Referred Care Information System. Therefore,
- +21 ; minimal protections have been placed in this conversion.
- +22 ;
- START ;
- +1 DO HELP^XBHELP("HELP","ACHSY200")
- +2 IF $PIECE($GET(^DD(9002080.01,80,0)),U,2)[200
- WRITE *7,!,"According to the data dictionary, the conversion has already completed:",!,^(0),!
- QUIT
- +3 ;
- +4 IF '$$DIR^XBDIR("Y","Do you want to proceed with the File 200 Synch check","Y")
- QUIT
- +5 DO EN^AVAPCHK
- DO RESULTS^AVAPCHK
- +6 IF '$DATA(^AVA("OK"))
- QUIT
- +7 ;
- +8 IF $$DIR^XBDIR("Y","Would you like to Q the File 200 converison to TaskMan","Y")
- Begin DoDot:1
- +9 SET ZTRTN="EN^ACHSY200"
- SET ZTDESC="CHS File 200 Conversion"
- SET ZTIO=""
- +10 DO ^%ZTLOAD
- +11 IF '$DATA(ZTSK)
- WRITE *7,!,"Taskman interface failed..."
- +12 KILL ZTSK
- +13 QUIT
- End DoDot:1
- QUIT
- +14 ;
- +15 IF $DATA(DUOUT)!$DATA(DTOUT)
- WRITE !,"You can use the programmer utilities menu to run this converison."
- QUIT
- +16 ;
- EN ;EP - From TaskMan.
- +1 ;
- +2 NEW ACHSDIEN,ACHSP6,ACHS0,FAC
- +3 ;
- +4 SET FAC=0
- +5 FOR
- SET FAC=$ORDER(^ACHSF(FAC))
- IF 'FAC
- QUIT
- Begin DoDot:1
- +6 IF '$DATA(^ACHSF(FAC,"D",0))
- QUIT
- SET ACHSP0=$PIECE(^(0),U,3)
- +7 IF '$DATA(ZTQUEUED)
- WRITE !,"Converting ",$PIECE(^DIC(4,FAC,0),U),"..."
- +8 SET ACHSDIEN=$GET(^ACHSF(FAC,"F80"),0)
- SET DX=$X
- SET DY=$Y
- +9 FOR
- SET ACHSDIEN=$ORDER(^ACHSF(FAC,"D",ACHSDIEN))
- IF 'ACHSDIEN
- QUIT
- Begin DoDot:2
- +10 IF '$DATA(ZTQUEUED)
- IF '(ACHSDIEN#100)
- XECUTE IOXY
- WRITE ACHSDIEN," of ",ACHSP0
- +11 SET ACHSP6=$$DOC^ACHS(3,5)
- +12 IF ACHSP6
- SET $PIECE(^ACHSF(FAC,"D",ACHSDIEN,3),U,5)=$GET(^DIC(16,ACHSP6,"A3"))
- +13 SET ^ACHSF(FAC,"F80")=ACHSDIEN
- +14 QUIT
- End DoDot:2
- +15 QUIT
- End DoDot:1
- +16 ;
- +17 FOR %=0:0
- SET %=$ORDER(^ACHSF(%))
- IF '%
- QUIT
- KILL ^ACHSF(%,"F80")
- +18 SET $PIECE(^DD(9002080.01,80,0),U,2,3)="P200'^VA(200,"
- +19 IF '$DATA(ZTQUEUED)
- WRITE !,"CHS Conversion to 200 successfully completed."
- +20 QUIT
- +21 ;
- HELP ;
- +1 ;;CHS File 200 Conversion....
- +2 ;;
- +3 ;;You'll have the chance to Q to TaskMan after the synch check.
- +4 ;;
- +5 ;;You can use the programmer utilities menu on the CHS main menu
- +6 ;; to run the File 200 converison, anytime you want.
- +7 ;;
- +8 ;;
