- DGRUGDS ;ALB/GRR - RAI/MDS DATA COLLECTION
- ;;5.3;Registration;**303,359**;Aug 13, 1993
- ;
- ;Display option description and allow user to terminate process
- EN ;
- W @IOF
- N DGSTN,DGX,DGDIV
- F I=0:1 S DGX=$P($T(TEXT+I),";;",2) Q:DGX="$END" W !,DGX
- S DIR(0)="YA",DIR("B")="NO",DIR("A")="Do you wish to continue? "
- S DIR("?")="Enter Yes to continue or No to quit"
- D ^DIR K DIR
- Q:'Y!$D(DIRUT)
- ;
- ;Ask user for division to seed
- DIV ;
- W !
- N DIR,DIRUT
- S DIR(0)="PO^40.8:EMZ"
- S DIR("A")="Enter the Division you want to do Data Seeding for"
- S DIR("?")="Select the division you want to load the patient data for into the COTS database."
- D ^DIR K DIR Q:$D(DIRUT)!(+Y'>0)
- S DGDIV=Y
- S DGSTN=$$SITE^VASITE($$NOW^XLFDT,+DGDIV)
- W !!,?4,"You have selected: ",$P(DGDIV,"^",2)
- W !,?4,"Station Number : ",$S(+DGSTN>0:$P(DGSTN,"^",3),1:"Undefined Station Number"),!
- I +DGSTN<0 D G DIV
- .W !?4,"You cannot proceed with this division until the station number is corrected."
- .W !?4,"You may select another division or quit.",!
- N DIR,DUOUT,DTOUT
- S DIR(0)="YAO",DIR("A")="Is this correct? ",DIR("B")="YES"
- S DIR("?")="Enter Yes or No. Yes will select, No will cancel."
- D ^DIR K DIR Q:$D(DTOUT)!($D(DUOUT))
- G:'Y DIV
- W !
- N ZTDESC,ZTSAVE,ZTIO,ZTDTH,X,ZTQUEUED,ZTREQ,ZTRTN
- S ZTDESC="RAI/MDS DATA SEED FOR DIVISION "_$P(DGDIV,"^",2)
- S ZTRTN="EN1^DGRUGDS",ZTIO=""
- S DGDIV=+DGDIV
- S ZTSAVE("DGDIV")="",ZTSAVE("DGSTN")=""
- D ^%ZTLOAD
- I '$G(ZTSK) W !,"** The data seed process was not tasked **"
- I $G(ZTSK) W !,"The data seed process has been tasked (#",ZTSK,")"
- W !
- Q
- EN1 ;
- N DGSENM,DGIEN,DGRSIED,DGWARD,DGWARD,DGWIEN,DGWDIV,DGSEED,DGMDT,DGRUGDS
- S U="^",DGSENM="DGRU-RAI-A01-SERVER",DGRSIED=$O(^ORD(101,"B",DGSENM,0)) ;SET VARIABLES TO CALL HL7 INIT FUNCTION
- D INIT^HLFNC2(DGSENM,.HL) ;Initialize A01 server, sets HL7 variables
- I $O(HL(""))']"" D Q ;WAS UNABLE TO INTIALIZE
- .S HLERR(1)=HL
- .;S DGWARD="" F S DGWARD=$O(^DGPM("CN",DGWARD)) Q:DGWARD="" S DGWIEN=+$O(^DIC(42,"B",DGWARD,0)) I $$GET1^DIQ(42,DGWIEN,.035,"I")=1 D ;loop through active patients, if ward is RAI/MDS flagged, continue
- .;S DGWDIV=$$GET1^DIQ(42,DGWIEN,.015,"I") I DGWDIV=DGDIV S DGIEN=0 F S DGIEN=$O(^DGPM("CN",DGWARD,DGIEN)) Q:DGIEN'>0 D ;If ward in the division selected, continue
- ;..S DFN=$$GET1^DIQ(405,DGIEN,.03,"I") Q:DFN="" ;get patient ien
- ;..S DGMDT=$$GET1^DIQ(405,DGIEN,.01,"I") Q:DGMDT=""
- ;..S DGSEED=1 D BLDMSG^DGRUADT1(DFN,"A01",DGIEN,DGMDT,DGWIEN)
- ;
- S DGRUGDS=0
- S DGWARD=""
- ;Loop through active patients
- F S DGWARD=$O(^DGPM("CN",DGWARD)) Q:(DGWARD="")!(DGRUGDS) D
- .;Task asked to stop ?
- .S X="Looping through ward "_DGWARD
- .S DGRUGDS=$$S^%ZTLOAD(X) Q:DGRUGDS
- .S DGWIEN=+$O(^DIC(42,"B",DGWARD,0))
- .;Not an RAI/MDS ward
- .Q:'$$GET1^DIQ(42,DGWIEN,.035,"I")
- .S DGWDIV=$$GET1^DIQ(42,DGWIEN,.015,"I")
- .;Ward not in selected division
- .Q:DGWDIV'=DGDIV
- .;Loop through movements
- .S DGIEN=0
- .F S DGIEN=$O(^DGPM("CN",DGWARD,DGIEN)) Q:(DGIEN'>0)!(DGRUGDS) D
- ..;Get patient pointer and movement date/time
- ..S DFN=$$GET1^DIQ(405,DGIEN,.03,"I") Q:DFN=""
- ..S DGMDT=$$GET1^DIQ(405,DGIEN,.01,"I") Q:DGMDT=""
- ..;Send message to RAI/MDS machine
- ..S DGSEED=1 D BLDMSG^DGRUADT1(DFN,"A01",DGIEN,DGMDT,DGWIEN)
- ..;Task asked to stop ?
- ..S X="Looping through ward "_DGWARD_" -- Last DFN sent was "_DFN
- ..S DGRUGDS=$$S^%ZTLOAD(X) Q:DGRUGDS
- ;Update task message with completion status
- I DGRUGDS S X=$$S^%ZTLOAD("Task stopped as requested")
- I 'DGRUGDS S X=$$S^%ZTLOAD("Task ran to completion")
- Q
- ;
- TEXT ;;This option will do the data seeding of patient data in the RAI/MDS COTS system.
- ;;HL7 A01 Admit messages will be created for patients currently active in wards
- ;;assigned to the selected division. This option should be run only once per
- ;;division and the COTS system database should be empty of patient data prior
- ;;to using this option.
- ;;
- ;;***NOTE***
- ;;
- ;;It is extremely important that both the Ward translation file (#46.12) and the
- ;;Room-Bed Translation file (#46.13) be complete if they are needed for use.
- ;;The RAI/MDS flag must be set to YES for the RAI/MDS wards in the selected
- ;;division BEFORE this option is run.
- ;;
- ;;$END
- ;;
- ;Entry point for individual data seed
- EN3 ;
- W @IOF
- N DGINPT,DGPTNM,DGFNM,DGLNM
- F I=0:1 S DGX=$P($T(TEXT3+I),";;",2) Q:DGX="$END" W !,DGX
- S DIR(0)="YA",DIR("B")="NO",DIR("A")="Do you wish to continue? "
- S DIR("?")="Enter Yes to continue or No to quit"
- D ^DIR K DIR
- Q:'Y!$D(DIRUT)
- ;
- ;Select patient(s)
- INPAT ;
- W !
- N DIR,DIRUT,DFN,DGIEN,DGWIEN,DGMDT
- S DIR(0)="PAO^2:EMZ"
- S DIR("A")="Enter the patient you want to data seed: "
- S DIR("?")="Select the patient you want to load into the COTS database."
- D ^DIR K DIR Q:$D(DIRUT)!(+Y'>0)
- S DGINPT=+Y
- S DGPTNM=$$GET1^DIQ(2,DGINPT,.01)
- S DGFNM=$P(DGPTNM,",",2)
- S DGLNM=$P(DGPTNM,",",1)
- S DGPTNM=DGFNM_" "_DGLNM
- W !!,?4,"You have selected: ",DGPTNM
- W !
- I +DGINPT<0 D G INPAT
- .W !?4,"You cannot proceed with this patient"
- .W !?4,"You may select another patient or quit.",!
- N DIR,DUOUT,DTOUT
- S DIR(0)="YAO",DIR("A")="Is this correct? ",DIR("B")="YES"
- S DIR("?")="Enter Yes or No. Yes will select this patient. No will cancel the selection of this patient."
- D ^DIR K DIR Q:$D(DTOUT)!($D(DUOUT))
- G:'Y INPAT D EN4
- ;Allow another selection
- W !
- S DIR(0)="YAO",DIR("A")="Select another patient? ",DIR("B")="NO"
- S DIR("?")="Enter Yes or No. Yes will allow you to select another patient."
- D ^DIR K DIR Q:$D(DTOUT)!($D(DUOUT))!('Y)
- G:Y INPAT
- W !
- Q
- ;
- ;Set variables to call HL7 Function
- EN4 ;
- N DGSENM,DGIEN,DGRSIED,DGWARD,DGWARD,DGWIEN,DGWDIV,DGSEED,DGMDT,DGRUGDS
- S U="^",DGSENM="DGRU-RAI-A01-SERVER",DGRSIED=$O(^ORD(101,"B",DGSENM,0))
- D INIT^HLFNC2(DGSENM,.HL) ;Initialize A01 server, sets HL7 variables
- I $O(HL(""))']"" D Q ;WAS UNABLE TO INTIALIZE
- .S HLERR(1)=HL
- ;
- ;Get selected patient's last ward location. If RAI ward, send message.
- ;If not an RAI ward, allow another inpatient selection. If current
- ;ward location is empty, patient is inactive & allow another selection.
- ACTIVE ;
- S DFN=DGINPT
- S DGRUGDS=0
- S VAIP("D")="LAST"
- D IN5^VADPT
- I '$$CHKWARD^DGRUUTL(+$P(VAIP(5),"^")) W !!?4,DGPTNM_" is not in an RAI ward." D EXIT Q
- I $$GET1^DIQ(2,DFN,.1)="" W !!?4,DGPTNM_" is not an active patient in an RAI ward." D EXIT Q
- I $$CHKWARD^DGRUUTL(+$P(VAIP(5),"^")) S DGWIEN=+$P(VAIP(5),"^"),DGIEN=VAIP(1),DGMDT=+$P(VAIP(3),"^")
- S DGSEED=1 D BLDMSG^DGRUADT1(DFN,"A01",DGIEN,DGMDT,DGWIEN)
- W !!?4,"Sending message..."
- D EXIT
- Q
- ;Reset variables for next selection
- EXIT ;
- K DFN,DGIEN,DGINPT,DGWIEN,DGMDT,VAIP
- ;
- TEXT3 ;;This option will do the data seeding of patient data in the RAI/MDS COTS system.
- ;;HL7 A01 Admit messages will be created for selected patients currently active in
- ;;RAI designated wards.
- ;;
- ;;***NOTE***
- ;;
- ;;It is extremely important that both the Ward translation file (#46.12)and the
- ;;Room-Bed Translation file (#46.13) be complete if they are needed for use.
- ;;The RAI/MDS flag must be set to YES for the RAI/MDS wards in the selected
- ;;division BEFORE this option is run.
- ;;
- ;;$END
- ;;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRUGDS 7264 printed Jan 18, 2025@03:59:03 Page 2
- DGRUGDS ;ALB/GRR - RAI/MDS DATA COLLECTION
- +1 ;;5.3;Registration;**303,359**;Aug 13, 1993
- +2 ;
- +3 ;Display option description and allow user to terminate process
- EN ;
- +1 WRITE @IOF
- +2 NEW DGSTN,DGX,DGDIV
- +3 FOR I=0:1
- SET DGX=$PIECE($TEXT(TEXT+I),";;",2)
- if DGX="$END"
- QUIT
- WRITE !,DGX
- +4 SET DIR(0)="YA"
- SET DIR("B")="NO"
- SET DIR("A")="Do you wish to continue? "
- +5 SET DIR("?")="Enter Yes to continue or No to quit"
- +6 DO ^DIR
- KILL DIR
- +7 if 'Y!$DATA(DIRUT)
- QUIT
- +8 ;
- +9 ;Ask user for division to seed
- DIV ;
- +1 WRITE !
- +2 NEW DIR,DIRUT
- +3 SET DIR(0)="PO^40.8:EMZ"
- +4 SET DIR("A")="Enter the Division you want to do Data Seeding for"
- +5 SET DIR("?")="Select the division you want to load the patient data for into the COTS database."
- +6 DO ^DIR
- KILL DIR
- if $DATA(DIRUT)!(+Y'>0)
- QUIT
- +7 SET DGDIV=Y
- +8 SET DGSTN=$$SITE^VASITE($$NOW^XLFDT,+DGDIV)
- +9 WRITE !!,?4,"You have selected: ",$PIECE(DGDIV,"^",2)
- +10 WRITE !,?4,"Station Number : ",$SELECT(+DGSTN>0:$PIECE(DGSTN,"^",3),1:"Undefined Station Number"),!
- +11 IF +DGSTN<0
- Begin DoDot:1
- +12 WRITE !?4,"You cannot proceed with this division until the station number is corrected."
- +13 WRITE !?4,"You may select another division or quit.",!
- End DoDot:1
- GOTO DIV
- +14 NEW DIR,DUOUT,DTOUT
- +15 SET DIR(0)="YAO"
- SET DIR("A")="Is this correct? "
- SET DIR("B")="YES"
- +16 SET DIR("?")="Enter Yes or No. Yes will select, No will cancel."
- +17 DO ^DIR
- KILL DIR
- if $DATA(DTOUT)!($DATA(DUOUT))
- QUIT
- +18 if 'Y
- GOTO DIV
- +19 WRITE !
- +20 NEW ZTDESC,ZTSAVE,ZTIO,ZTDTH,X,ZTQUEUED,ZTREQ,ZTRTN
- +21 SET ZTDESC="RAI/MDS DATA SEED FOR DIVISION "_$PIECE(DGDIV,"^",2)
- +22 SET ZTRTN="EN1^DGRUGDS"
- SET ZTIO=""
- +23 SET DGDIV=+DGDIV
- +24 SET ZTSAVE("DGDIV")=""
- SET ZTSAVE("DGSTN")=""
- +25 DO ^%ZTLOAD
- +26 IF '$GET(ZTSK)
- WRITE !,"** The data seed process was not tasked **"
- +27 IF $GET(ZTSK)
- WRITE !,"The data seed process has been tasked (#",ZTSK,")"
- +28 WRITE !
- +29 QUIT
- EN1 ;
- +1 NEW DGSENM,DGIEN,DGRSIED,DGWARD,DGWARD,DGWIEN,DGWDIV,DGSEED,DGMDT,DGRUGDS
- +2 ;SET VARIABLES TO CALL HL7 INIT FUNCTION
- SET U="^"
- SET DGSENM="DGRU-RAI-A01-SERVER"
- SET DGRSIED=$ORDER(^ORD(101,"B",DGSENM,0))
- +3 ;Initialize A01 server, sets HL7 variables
- DO INIT^HLFNC2(DGSENM,.HL)
- +4 ;WAS UNABLE TO INTIALIZE
- IF $ORDER(HL(""))']""
- Begin DoDot:1
- +5 SET HLERR(1)=HL
- +6 ;S DGWARD="" F S DGWARD=$O(^DGPM("CN",DGWARD)) Q:DGWARD="" S DGWIEN=+$O(^DIC(42,"B",DGWARD,0)) I $$GET1^DIQ(42,DGWIEN,.035,"I")=1 D ;loop through active patients, if ward is RAI/MDS flagged, continue
- +7 ;S DGWDIV=$$GET1^DIQ(42,DGWIEN,.015,"I") I DGWDIV=DGDIV S DGIEN=0 F S DGIEN=$O(^DGPM("CN",DGWARD,DGIEN)) Q:DGIEN'>0 D ;If ward in the division selected, continue
- End DoDot:1
- QUIT
- +8 ;..S DFN=$$GET1^DIQ(405,DGIEN,.03,"I") Q:DFN="" ;get patient ien
- +9 ;..S DGMDT=$$GET1^DIQ(405,DGIEN,.01,"I") Q:DGMDT=""
- +10 ;..S DGSEED=1 D BLDMSG^DGRUADT1(DFN,"A01",DGIEN,DGMDT,DGWIEN)
- +11 ;
- +12 SET DGRUGDS=0
- +13 SET DGWARD=""
- +14 ;Loop through active patients
- +15 FOR
- SET DGWARD=$ORDER(^DGPM("CN",DGWARD))
- if (DGWARD="")!(DGRUGDS)
- QUIT
- Begin DoDot:1
- +16 ;Task asked to stop ?
- +17 SET X="Looping through ward "_DGWARD
- +18 SET DGRUGDS=$$S^%ZTLOAD(X)
- if DGRUGDS
- QUIT
- +19 SET DGWIEN=+$ORDER(^DIC(42,"B",DGWARD,0))
- +20 ;Not an RAI/MDS ward
- +21 if '$$GET1^DIQ(42,DGWIEN,.035,"I")
- QUIT
- +22 SET DGWDIV=$$GET1^DIQ(42,DGWIEN,.015,"I")
- +23 ;Ward not in selected division
- +24 if DGWDIV'=DGDIV
- QUIT
- +25 ;Loop through movements
- +26 SET DGIEN=0
- +27 FOR
- SET DGIEN=$ORDER(^DGPM("CN",DGWARD,DGIEN))
- if (DGIEN'>0)!(DGRUGDS)
- QUIT
- Begin DoDot:2
- +28 ;Get patient pointer and movement date/time
- +29 SET DFN=$$GET1^DIQ(405,DGIEN,.03,"I")
- if DFN=""
- QUIT
- +30 SET DGMDT=$$GET1^DIQ(405,DGIEN,.01,"I")
- if DGMDT=""
- QUIT
- +31 ;Send message to RAI/MDS machine
- +32 SET DGSEED=1
- DO BLDMSG^DGRUADT1(DFN,"A01",DGIEN,DGMDT,DGWIEN)
- +33 ;Task asked to stop ?
- +34 SET X="Looping through ward "_DGWARD_" -- Last DFN sent was "_DFN
- +35 SET DGRUGDS=$$S^%ZTLOAD(X)
- if DGRUGDS
- QUIT
- End DoDot:2
- End DoDot:1
- +36 ;Update task message with completion status
- +37 IF DGRUGDS
- SET X=$$S^%ZTLOAD("Task stopped as requested")
- +38 IF 'DGRUGDS
- SET X=$$S^%ZTLOAD("Task ran to completion")
- +39 QUIT
- +40 ;
- TEXT ;;This option will do the data seeding of patient data in the RAI/MDS COTS system.
- +1 ;;HL7 A01 Admit messages will be created for patients currently active in wards
- +2 ;;assigned to the selected division. This option should be run only once per
- +3 ;;division and the COTS system database should be empty of patient data prior
- +4 ;;to using this option.
- +5 ;;
- +6 ;;***NOTE***
- +7 ;;
- +8 ;;It is extremely important that both the Ward translation file (#46.12) and the
- +9 ;;Room-Bed Translation file (#46.13) be complete if they are needed for use.
- +10 ;;The RAI/MDS flag must be set to YES for the RAI/MDS wards in the selected
- +11 ;;division BEFORE this option is run.
- +12 ;;
- +13 ;;$END
- +14 ;;
- +15 ;Entry point for individual data seed
- EN3 ;
- +1 WRITE @IOF
- +2 NEW DGINPT,DGPTNM,DGFNM,DGLNM
- +3 FOR I=0:1
- SET DGX=$PIECE($TEXT(TEXT3+I),";;",2)
- if DGX="$END"
- QUIT
- WRITE !,DGX
- +4 SET DIR(0)="YA"
- SET DIR("B")="NO"
- SET DIR("A")="Do you wish to continue? "
- +5 SET DIR("?")="Enter Yes to continue or No to quit"
- +6 DO ^DIR
- KILL DIR
- +7 if 'Y!$DATA(DIRUT)
- QUIT
- +8 ;
- +9 ;Select patient(s)
- INPAT ;
- +1 WRITE !
- +2 NEW DIR,DIRUT,DFN,DGIEN,DGWIEN,DGMDT
- +3 SET DIR(0)="PAO^2:EMZ"
- +4 SET DIR("A")="Enter the patient you want to data seed: "
- +5 SET DIR("?")="Select the patient you want to load into the COTS database."
- +6 DO ^DIR
- KILL DIR
- if $DATA(DIRUT)!(+Y'>0)
- QUIT
- +7 SET DGINPT=+Y
- +8 SET DGPTNM=$$GET1^DIQ(2,DGINPT,.01)
- +9 SET DGFNM=$PIECE(DGPTNM,",",2)
- +10 SET DGLNM=$PIECE(DGPTNM,",",1)
- +11 SET DGPTNM=DGFNM_" "_DGLNM
- +12 WRITE !!,?4,"You have selected: ",DGPTNM
- +13 WRITE !
- +14 IF +DGINPT<0
- Begin DoDot:1
- +15 WRITE !?4,"You cannot proceed with this patient"
- +16 WRITE !?4,"You may select another patient or quit.",!
- End DoDot:1
- GOTO INPAT
- +17 NEW DIR,DUOUT,DTOUT
- +18 SET DIR(0)="YAO"
- SET DIR("A")="Is this correct? "
- SET DIR("B")="YES"
- +19 SET DIR("?")="Enter Yes or No. Yes will select this patient. No will cancel the selection of this patient."
- +20 DO ^DIR
- KILL DIR
- if $DATA(DTOUT)!($DATA(DUOUT))
- QUIT
- +21 if 'Y
- GOTO INPAT
- DO EN4
- +22 ;Allow another selection
- +23 WRITE !
- +24 SET DIR(0)="YAO"
- SET DIR("A")="Select another patient? "
- SET DIR("B")="NO"
- +25 SET DIR("?")="Enter Yes or No. Yes will allow you to select another patient."
- +26 DO ^DIR
- KILL DIR
- if $DATA(DTOUT)!($DATA(DUOUT))!('Y)
- QUIT
- +27 if Y
- GOTO INPAT
- +28 WRITE !
- +29 QUIT
- +30 ;
- +31 ;Set variables to call HL7 Function
- EN4 ;
- +1 NEW DGSENM,DGIEN,DGRSIED,DGWARD,DGWARD,DGWIEN,DGWDIV,DGSEED,DGMDT,DGRUGDS
- +2 SET U="^"
- SET DGSENM="DGRU-RAI-A01-SERVER"
- SET DGRSIED=$ORDER(^ORD(101,"B",DGSENM,0))
- +3 ;Initialize A01 server, sets HL7 variables
- DO INIT^HLFNC2(DGSENM,.HL)
- +4 ;WAS UNABLE TO INTIALIZE
- IF $ORDER(HL(""))']""
- Begin DoDot:1
- +5 SET HLERR(1)=HL
- End DoDot:1
- QUIT
- +6 ;
- +7 ;Get selected patient's last ward location. If RAI ward, send message.
- +8 ;If not an RAI ward, allow another inpatient selection. If current
- +9 ;ward location is empty, patient is inactive & allow another selection.
- ACTIVE ;
- +1 SET DFN=DGINPT
- +2 SET DGRUGDS=0
- +3 SET VAIP("D")="LAST"
- +4 DO IN5^VADPT
- +5 IF '$$CHKWARD^DGRUUTL(+$PIECE(VAIP(5),"^"))
- WRITE !!?4,DGPTNM_" is not in an RAI ward."
- DO EXIT
- QUIT
- +6 IF $$GET1^DIQ(2,DFN,.1)=""
- WRITE !!?4,DGPTNM_" is not an active patient in an RAI ward."
- DO EXIT
- QUIT
- +7 IF $$CHKWARD^DGRUUTL(+$PIECE(VAIP(5),"^"))
- SET DGWIEN=+$PIECE(VAIP(5),"^")
- SET DGIEN=VAIP(1)
- SET DGMDT=+$PIECE(VAIP(3),"^")
- +8 SET DGSEED=1
- DO BLDMSG^DGRUADT1(DFN,"A01",DGIEN,DGMDT,DGWIEN)
- +9 WRITE !!?4,"Sending message..."
- +10 DO EXIT
- +11 QUIT
- +12 ;Reset variables for next selection
- EXIT ;
- +1 KILL DFN,DGIEN,DGINPT,DGWIEN,DGMDT,VAIP
- +2 ;
- TEXT3 ;;This option will do the data seeding of patient data in the RAI/MDS COTS system.
- +1 ;;HL7 A01 Admit messages will be created for selected patients currently active in
- +2 ;;RAI designated wards.
- +3 ;;
- +4 ;;***NOTE***
- +5 ;;
- +6 ;;It is extremely important that both the Ward translation file (#46.12)and the
- +7 ;;Room-Bed Translation file (#46.13) be complete if they are needed for use.
- +8 ;;The RAI/MDS flag must be set to YES for the RAI/MDS wards in the selected
- +9 ;;division BEFORE this option is run.
- +10 ;;
- +11 ;;$END
- +12 ;;