Routine: ORFEDT

ORFEDT ;SLC/AGP - GENERIC EDIT FORM ;Aug 25, 2022@11:34:47

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**405**;Dec 17, 1997;Build 211

BLDPRMPT(PROMPTS) ;

 S PROMPTS("pnumCode")=2

 S PROMPTS("pnumPrvdrIEN")=2

 S PROMPTS("pnumCategory")=3

 S PROMPTS("pnumNarrative")=4

 S PROMPTS("pnumExamResults")=5

 S PROMPTS("pnumSkinResults")=5

 S PROMPTS("pnumHFLevel")=5

 S PROMPTS("pnumImmSeries")=5

 S PROMPTS("pnumProcQty")=5

 S PROMPTS("pnumPEDLevel")=5

 S PROMPTS("pnumDiagPrimary")=5

 S PROMPTS("pnumPrvdrName")=5

 S PROMPTS("pnumProvider")=6

 S PROMPTS("pnumPrvdrPrimary")=6

 S PROMPTS("pnumWarnDate")=6

 S PROMPTS("pnumSkinReading")=7

 S PROMPTS("pnumImmReaction")=7

 S PROMPTS("pnumDiagAdd2PL")=7

 S PROMPTS("pnumSkinDTRead")=8

 S PROMPTS("pnumImmContra")=8

 S PROMPTS("pnumSkinDTGiven")=9

 S PROMPTS("pnumImmRefused")=9

 S PROMPTS("pnumCPTMods")=9

 S PROMPTS("pnumComment")=10

 ;S PROMPTS("pnumOutSideLocation")=11

 S PROMPTS("pnumSkinReader")=11

 S PROMPTS("pnumSkinReaderIEN")=11

 S PROMPTS("pnumWHPapResult")=11

 S PROMPTS("pnumWHNotPurp")=12

 S PROMPTS("pnumDataSource")=12

 S PROMPTS("pnumSkinOrderBy")=12

 S PROMPTS("pnumDate")=13

 S PROMPTS("pnumImmDosage")=13

 S PROMPTS("pnumSkinSite")=13

 S PROMPTS("pnumImmOrderByIEN")=20

 S PROMPTS("pnumRemGenFindID")=14

 S PROMPTS("pnumImmRoute")=14

 S PROMPTS("pnumSkinReadingComment")=14

 S PROMPTS("pnumImmSite")=15

 S PROMPTS("pnumImmLot")=16

 S PROMPTS("pnumRemGenFindNewData")=16

 S PROMPTS("pnumRemGenFindGroup")=17

 S PROMPTS("pnumImmManufacturer")=17

 S PROMPTS("pnumExpirationDate")=18

 S PROMPTS("pnumImmRouteIEN")=18

 S PROMPTS("pnumGFPrint")=18

 S PROMPTS("pnumAdminDate")=19

 S PROMPTS("pnumImmOrderByIEN")=20

 S PROMPTS("pnumIMMVIS")=21

 S PROMPTS("pnumImmOverride")=24

 ;S PROMPTS("pnumImmDocumType")=30

 ;S PROMPTS("pnumImmCPTCodes")=31

 S PROMPTS("pnumOutSideLocation")=32

 ;S PROMPTS("pnumImmDXCodes")=33

 S PROMPTS("pnumReadingIEN")=16

 S PROMPTS("pnumRefusedGroup")=11

 S PROMPTS("pnumAdminByPolicy")=31

BLDPARR(RESULT) ;

 S RESULT("ADMIN ROUTE")="pnumImmRoute"

 S RESULT("ADMIN SITE")="pnumImmSite"

 S RESULT("ANATOMIC LOC")="pnumImmSite"

 S RESULT("COMMENTS")="pnumComment"

 ;S RESULT("CODES CPT")="pnumImmCPTCodes"

 ;S RESULT("CODES DX")="pnumImmDXCodes"

 S RESULT("CONTRAINDICATED")="pnumImmContra"

 S RESULT("CONTRA/REFUSAL")="CONTRA"

 S RESULT("REFUSAL")="pnumImmRefused"

 S RESULT("CVX")=""

 S RESULT("DATA SOURCE")=""

 S RESULT("DATE RECORDED")=""

 S RESULT("DOCUMENTER")=""

 S RESULT("DOSE")="pnumImmDosage"

 S RESULT("DOSE UNITS")=""

 S RESULT("ENCOUNTER PROVIDER")="pnumProvider"

 S RESULT("EVENT DATE AND TIME")="pnumAdminDate"

 S RESULT("EXPIRATION DATE")="pnumExpirationDate"

 S RESULT("FACILITY")=""

 S RESULT("IMMUN")=4

 S RESULT("IMMUNIZATION")=4

 S RESULT("INFO SOURCE")="pnumDataSource"

 S RESULT("LOCATION")="pnumOutSideLocation"

 S RESULT("LOT NUMBER")="pnumImmLot"

 S RESULT("MANUFACTURER")="pnumImmManufacturer"

 S RESULT("ORDERING PROVIDER")="pnumImmOrderByIEN"

 S RESULT("OVERRIDE REASON")="pnumImmOverride"

 S RESULT("REACTION")="pnumImmReaction"

 S RESULT("PLACEMENT IEN")="pnumReadingIEN"

 S RESULT("READING")="pnumSkinReading"

 S RESULT("RESULTS")="pnumSkinResults"

 S RESULT("READING COMMENTS")="pnumComment"

 S RESULT("SERIES")="pnumImmSeries"

 S RESULT("SKIN TEST")=4

 S RESULT("VACCINE GROUP",1,0)=""

 S RESULT("VALUE")=""

 S RESULT("VIS OFFERED")="pnumIMMVIS"

 S RESULT("VISIT")=""

 S RESULT("VISIT DATE TIME")="pnumAdminDate"

 S RESULT("WARN UNTIL DATE")="pnumWarnDate"

 S RESULT("WARNING ACK")=""

 S RESULT("READER")="pnumSkinReader"

 S RESULT("DATE READ")="pnumSkinDTRead"

 S RESULT("CVXONLY")="pnumRefusedGroup"

 S RESULT("ORDERED BY POLICY")="pnumAdminByPolicy"

GETLAYOT(RESULT,INPUTS,DEFAULTS) ;

 N DATAARR,DATATYPE,DEFLIST,NODE,X

 M DATAARR=INPUTS("DATA")

 ;M EDITARR=INPUTS("EDIT DATA")

 S DATATYPE=DATAARR("TYPE")

 I $D(DEFAULTS) D BLDDEFLS(.DEFAULTS,.DEFLIST)

 I DATATYPE="SKIN TEST" D GET^ORFSKT(.RESULT,.DATAARR,.DEFLIST) Q

 I DATATYPE="IMMUNIZATION" D GET^ORFIMM(.RESULT,.DATAARR,.DEFLIST) Q

 ;I DATATYPE="ZZAGP" D GET^ZZAGPFEDT(.RESULT,.DATAARR,.DEFLIST) Q

BLDLAYOT(RESULT,INPUTS,TYPE,CONTROL) ;

 I CONTROL="SKIN TEST" D BLDLAYOT^ORFSKT(.RESULT,.INPUTS,TYPE) Q

 I CONTROL="IMMUNIZATION" D BLDLAYOT^ORFIMM(.RESULT,.INPUTS,TYPE) Q

 ;I CONTROL="ZZAGP" D BLDLAYOT^ZZAGPFEDT(.RESULT,.INPUTS,TYPE)

BLDDEFLS(DEFAULTS,DEFLIST) ;

 N CNT,LNAME,LNODE,MARRAY,MCNT,NODE

 S LNAME=0,MCNT=0

 S CNT=0 F  S CNT=$O(DEFAULTS(CNT)) Q:CNT'>0  D

 .S NODE=DEFAULTS(CNT)

 .I LNAME="" S LNAME=$P(NODE,U),DEFLIST(LNAME)=$P(NODE,U,2,$L(NODE,U)) Q

 .I LNAME=$P(NODE,U) S MCNT=MCNT+1,MARRAY(LNAME,MCNT)=$P(NODE,U,2,$L(NODE,U)) Q

 .I LNAME'=$P(NODE,U) S LNAME=$P(NODE,U) S DEFLIST($P(NODE,U))=$P(NODE,U,2,$L(NODE,U))

 I '$D(MARRAY) Q

 S LNAME="" F  S LNAME=$O(MARRAY(LNAME)) Q:LNAME=""  D

 .K DEFLIST(LNAME) S MCNT=0

 .S CNT=0 F  S CNT=$O(MARRAY(LNAME,CNT)) Q:CNT'>0  D

 ..S MCNT=MCNT+1,DEFLIST(LNAME,MCNT)=MARRAY(LNAME,CNT)

BLDRESLT(RESULTS,LIST,INPUTS) ;

 N CNT,DATETIME,ENCTYPE,LOC,X

 I INPUTS("TYPE")="IMMUNIZATION" D BLD^ORFIMM1(.RESULTS,.LIST,.INPUTS) G BLDX

 I INPUTS("TYPE")="SKIN TEST" D BLD^ORFSKT(.RESULTS,.LIST,.INPUTS) G BLDX

 ;I INPUTS("TYPE")="ZZAGP" D BLD^ZZAGPFEDT(.RESULTS,.LIST,.INPUTS)

BLDX ;

 S CNT=""

 S CNT=$O(RESULTS(CNT),-1)

 S X=0 F  S X=$O(LIST(X)) Q:X'>0  D

 .S CNT=CNT+1,RESULTS(CNT)="LAYOUT"_U_LIST(X)

GETSERIES(RESULTS) ;

 N DATALST,IDX

 D GETSET^ORWPCE2(.DATALST,9000010.11,.04,1)

 S IDX=0 F  S IDX=$O(DATALST(IDX)) Q:IDX'>0  D

 .S RESULTS("series",IDX,"internal")=$P(DATALST(IDX),U)

 .S RESULTS("series",IDX,"external")=$P(DATALST(IDX),U,2)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORFEDT   5770     printed  Mar 13, 2025@21:35:43                                                                                                                                                                                                      Page 2

ORFEDT    ;SLC/AGP - GENERIC EDIT FORM ;Aug 25, 2022@11:34:47

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**405**;Dec 17, 1997;Build 211

 +2        QUIT

 +3       ;

BLDPRMPT(PROMPTS) ;

 +1        SET PROMPTS("pnumCode")=2

 +2        SET PROMPTS("pnumPrvdrIEN")=2

 +3        SET PROMPTS("pnumCategory")=3

 +4        SET PROMPTS("pnumNarrative")=4

 +5        SET PROMPTS("pnumExamResults")=5

 +6        SET PROMPTS("pnumSkinResults")=5

 +7        SET PROMPTS("pnumHFLevel")=5

 +8        SET PROMPTS("pnumImmSeries")=5

 +9        SET PROMPTS("pnumProcQty")=5

 +10       SET PROMPTS("pnumPEDLevel")=5

 +11       SET PROMPTS("pnumDiagPrimary")=5

 +12       SET PROMPTS("pnumPrvdrName")=5

 +13       SET PROMPTS("pnumProvider")=6

 +14       SET PROMPTS("pnumPrvdrPrimary")=6

 +15       SET PROMPTS("pnumWarnDate")=6

 +16       SET PROMPTS("pnumSkinReading")=7

 +17       SET PROMPTS("pnumImmReaction")=7

 +18       SET PROMPTS("pnumDiagAdd2PL")=7

 +19       SET PROMPTS("pnumSkinDTRead")=8

 +20       SET PROMPTS("pnumImmContra")=8

 +21       SET PROMPTS("pnumSkinDTGiven")=9

 +22       SET PROMPTS("pnumImmRefused")=9

 +23       SET PROMPTS("pnumCPTMods")=9

 +24       SET PROMPTS("pnumComment")=10

 +25      ;S PROMPTS("pnumOutSideLocation")=11

 +26       SET PROMPTS("pnumSkinReader")=11

 +27       SET PROMPTS("pnumSkinReaderIEN")=11

 +28       SET PROMPTS("pnumWHPapResult")=11

 +29       SET PROMPTS("pnumWHNotPurp")=12

 +30       SET PROMPTS("pnumDataSource")=12

 +31       SET PROMPTS("pnumSkinOrderBy")=12

 +32       SET PROMPTS("pnumDate")=13

 +33       SET PROMPTS("pnumImmDosage")=13

 +34       SET PROMPTS("pnumSkinSite")=13

 +35       SET PROMPTS("pnumImmOrderByIEN")=20

 +36       SET PROMPTS("pnumRemGenFindID")=14

 +37       SET PROMPTS("pnumImmRoute")=14

 +38       SET PROMPTS("pnumSkinReadingComment")=14

 +39       SET PROMPTS("pnumImmSite")=15

 +40       SET PROMPTS("pnumImmLot")=16

 +41       SET PROMPTS("pnumRemGenFindNewData")=16

 +42       SET PROMPTS("pnumRemGenFindGroup")=17

 +43       SET PROMPTS("pnumImmManufacturer")=17

 +44       SET PROMPTS("pnumExpirationDate")=18

 +45       SET PROMPTS("pnumImmRouteIEN")=18

 +46       SET PROMPTS("pnumGFPrint")=18

 +47       SET PROMPTS("pnumAdminDate")=19

 +48       SET PROMPTS("pnumImmOrderByIEN")=20

 +49       SET PROMPTS("pnumIMMVIS")=21

 +50       SET PROMPTS("pnumImmOverride")=24

 +51      ;S PROMPTS("pnumImmDocumType")=30

 +52      ;S PROMPTS("pnumImmCPTCodes")=31

 +53       SET PROMPTS("pnumOutSideLocation")=32

 +54      ;S PROMPTS("pnumImmDXCodes")=33

 +55       SET PROMPTS("pnumReadingIEN")=16

 +56       SET PROMPTS("pnumRefusedGroup")=11

 +57       SET PROMPTS("pnumAdminByPolicy")=31

 +58       QUIT

 +59      ;

BLDPARR(RESULT) ;

 +1        SET RESULT("ADMIN ROUTE")="pnumImmRoute"

 +2        SET RESULT("ADMIN SITE")="pnumImmSite"

 +3        SET RESULT("ANATOMIC LOC")="pnumImmSite"

 +4        SET RESULT("COMMENTS")="pnumComment"

 +5       ;S RESULT("CODES CPT")="pnumImmCPTCodes"

 +6       ;S RESULT("CODES DX")="pnumImmDXCodes"

 +7        SET RESULT("CONTRAINDICATED")="pnumImmContra"

 +8        SET RESULT("CONTRA/REFUSAL")="CONTRA"

 +9        SET RESULT("REFUSAL")="pnumImmRefused"

 +10       SET RESULT("CVX")=""

 +11       SET RESULT("DATA SOURCE")=""

 +12       SET RESULT("DATE RECORDED")=""

 +13       SET RESULT("DOCUMENTER")=""

 +14       SET RESULT("DOSE")="pnumImmDosage"

 +15       SET RESULT("DOSE UNITS")=""

 +16       SET RESULT("ENCOUNTER PROVIDER")="pnumProvider"

 +17       SET RESULT("EVENT DATE AND TIME")="pnumAdminDate"

 +18       SET RESULT("EXPIRATION DATE")="pnumExpirationDate"

 +19       SET RESULT("FACILITY")=""

 +20       SET RESULT("IMMUN")=4

 +21       SET RESULT("IMMUNIZATION")=4

 +22       SET RESULT("INFO SOURCE")="pnumDataSource"

 +23       SET RESULT("LOCATION")="pnumOutSideLocation"

 +24       SET RESULT("LOT NUMBER")="pnumImmLot"

 +25       SET RESULT("MANUFACTURER")="pnumImmManufacturer"

 +26       SET RESULT("ORDERING PROVIDER")="pnumImmOrderByIEN"

 +27       SET RESULT("OVERRIDE REASON")="pnumImmOverride"

 +28       SET RESULT("REACTION")="pnumImmReaction"

 +29       SET RESULT("PLACEMENT IEN")="pnumReadingIEN"

 +30       SET RESULT("READING")="pnumSkinReading"

 +31       SET RESULT("RESULTS")="pnumSkinResults"

 +32       SET RESULT("READING COMMENTS")="pnumComment"

 +33       SET RESULT("SERIES")="pnumImmSeries"

 +34       SET RESULT("SKIN TEST")=4

 +35       SET RESULT("VACCINE GROUP",1,0)=""

 +36       SET RESULT("VALUE")=""

 +37       SET RESULT("VIS OFFERED")="pnumIMMVIS"

 +38       SET RESULT("VISIT")=""

 +39       SET RESULT("VISIT DATE TIME")="pnumAdminDate"

 +40       SET RESULT("WARN UNTIL DATE")="pnumWarnDate"

 +41       SET RESULT("WARNING ACK")=""

 +42       SET RESULT("READER")="pnumSkinReader"

 +43       SET RESULT("DATE READ")="pnumSkinDTRead"

 +44       SET RESULT("CVXONLY")="pnumRefusedGroup"

 +45       SET RESULT("ORDERED BY POLICY")="pnumAdminByPolicy"

 +46       QUIT

 +47      ;

GETLAYOT(RESULT,INPUTS,DEFAULTS) ;

 +1        NEW DATAARR,DATATYPE,DEFLIST,NODE,X

 +2        MERGE DATAARR=INPUTS("DATA")

 +3       ;M EDITARR=INPUTS("EDIT DATA")

 +4        SET DATATYPE=DATAARR("TYPE")

 +5        IF $DATA(DEFAULTS)

               DO BLDDEFLS(.DEFAULTS,.DEFLIST)

 +6        IF DATATYPE="SKIN TEST"

               DO GET^ORFSKT(.RESULT,.DATAARR,.DEFLIST)

               QUIT

 +7        IF DATATYPE="IMMUNIZATION"

               DO GET^ORFIMM(.RESULT,.DATAARR,.DEFLIST)

               QUIT

 +8       ;I DATATYPE="ZZAGP" D GET^ZZAGPFEDT(.RESULT,.DATAARR,.DEFLIST) Q

 +9        QUIT

 +10      ;

BLDLAYOT(RESULT,INPUTS,TYPE,CONTROL) ;

 +1        IF CONTROL="SKIN TEST"

               DO BLDLAYOT^ORFSKT(.RESULT,.INPUTS,TYPE)

               QUIT

 +2        IF CONTROL="IMMUNIZATION"

               DO BLDLAYOT^ORFIMM(.RESULT,.INPUTS,TYPE)

               QUIT

 +3       ;I CONTROL="ZZAGP" D BLDLAYOT^ZZAGPFEDT(.RESULT,.INPUTS,TYPE)

 +4        QUIT

 +5       ;

BLDDEFLS(DEFAULTS,DEFLIST) ;

 +1        NEW CNT,LNAME,LNODE,MARRAY,MCNT,NODE

 +2        SET LNAME=0

           SET MCNT=0

 +3        SET CNT=0

FOR

               SET CNT=$ORDER(DEFAULTS(CNT))

               if CNT'>0

                   QUIT

               Begin DoDot:1

 +4                SET NODE=DEFAULTS(CNT)

 +5                IF LNAME=""

                       SET LNAME=$PIECE(NODE,U)

                       SET DEFLIST(LNAME)=$PIECE(NODE,U,2,$LENGTH(NODE,U))

                       QUIT

 +6                IF LNAME=$PIECE(NODE,U)

                       SET MCNT=MCNT+1

                       SET MARRAY(LNAME,MCNT)=$PIECE(NODE,U,2,$LENGTH(NODE,U))

                       QUIT

 +7                IF LNAME'=$PIECE(NODE,U)

                       SET LNAME=$PIECE(NODE,U)

                       SET DEFLIST($PIECE(NODE,U))=$PIECE(NODE,U,2,$LENGTH(NODE,U))

               End DoDot:1

 +8        IF '$DATA(MARRAY)

               QUIT

 +9        SET LNAME=""

FOR

               SET LNAME=$ORDER(MARRAY(LNAME))

               if LNAME=""

                   QUIT

               Begin DoDot:1

 +10               KILL DEFLIST(LNAME)

                   SET MCNT=0

 +11               SET CNT=0

FOR

                       SET CNT=$ORDER(MARRAY(LNAME,CNT))

                       if CNT'>0

                           QUIT

                       Begin DoDot:2

 +12                       SET MCNT=MCNT+1

                           SET DEFLIST(LNAME,MCNT)=MARRAY(LNAME,CNT)

                       End DoDot:2

               End DoDot:1

 +13       QUIT

 +14      ;

 +15      ;

BLDRESLT(RESULTS,LIST,INPUTS) ;

 +1        NEW CNT,DATETIME,ENCTYPE,LOC,X

 +2        IF INPUTS("TYPE")="IMMUNIZATION"

               DO BLD^ORFIMM1(.RESULTS,.LIST,.INPUTS)

               GOTO BLDX

 +3        IF INPUTS("TYPE")="SKIN TEST"

               DO BLD^ORFSKT(.RESULTS,.LIST,.INPUTS)

               GOTO BLDX

 +4       ;I INPUTS("TYPE")="ZZAGP" D BLD^ZZAGPFEDT(.RESULTS,.LIST,.INPUTS)

BLDX      ;

 +1       ;

 +2        SET CNT=""

 +3        SET CNT=$ORDER(RESULTS(CNT),-1)

 +4        SET X=0

FOR

               SET X=$ORDER(LIST(X))

               if X'>0

                   QUIT

               Begin DoDot:1

 +5                SET CNT=CNT+1

                   SET RESULTS(CNT)="LAYOUT"_U_LIST(X)

               End DoDot:1

 +6        QUIT

 +7       ;

GETSERIES(RESULTS) ;

 +1        NEW DATALST,IDX

 +2        DO GETSET^ORWPCE2(.DATALST,9000010.11,.04,1)

 +3        SET IDX=0

FOR

               SET IDX=$ORDER(DATALST(IDX))

               if IDX'>0

                   QUIT

               Begin DoDot:1

 +4                SET RESULTS("series",IDX,"internal")=$PIECE(DATALST(IDX),U)

 +5                SET RESULTS("series",IDX,"external")=$PIECE(DATALST(IDX),U,2)

               End DoDot:1

 +6        QUIT

 +7       ;

ORFEDT.m