IBDFN11.m

IBDFN11 ;ALB/CMR - ENCOUNTER FORM - (entry points for reprint of dynamic data) ;5/21/93

 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 ;

REPRINT(IBPFID,LIST,ARY) ; -- returns dynamic lists previously printed on a form

 ; -- input    IBPFID = ien of forms tracking file

 ;             LIST = ien of selection list file

 ;             ARY = name of array to return list in

 ;

 ; -- output   The format of the returned array is as follows:

 ;            @ARY(0) = count of array element (0 if nothing found)

 ;            @ARY(1) = provider ien^provider

 ;         or @ARY(1) = problem ien^problem text^ICD code

 ;         or @ARY(1) = classification question

 ;

 Q:'IBPFID!('LIST)

 N FID,ITEM,IBDIEN,NODE,COUNT

 ; -- initialize counter

 S COUNT=0

 ; -- clean out storage area

 K @ARY

 ; -- get field ids associated with this list

 S FID="S"_LIST

 S XREF=$S($O(^IBD(357.96,IBPFID,"AD",FID))[LIST:"AD",$O(^IBD(357.96,IBPFID,"AC",FID))[LIST:"AC",1:"") Q:XREF']""

 S FID=$O(^IBD(357.96,IBPFID,XREF,FID)) Q:FID'[LIST  D

 .; -- get all items for the field id

 .S ITEM=0 F  S ITEM=$O(^IBD(357.96,IBPFID,XREF,FID,ITEM)) Q:'ITEM  D

 ..; -- get ien for dynamic data entry

 ..S IBDIEN=0 F  S IBDIEN=$O(^IBD(357.96,IBPFID,XREF,FID,ITEM,IBDIEN)) Q:'IBDIEN  S NODE=$S(XREF="AD":$G(^IBD(357.96,IBPFID,2,IBDIEN,0)),1:$G(^IBD(357.96,IBPFID,1,IBDIEN,0))) I NODE]"" D

 ...; -- set output array with dynamic data previously printed

 ...S COUNT=COUNT+1

 ...S @ARY@(COUNT)=$P(NODE,"^",4)_"^"_$P(NODE,"^",8)_"^"_$S(ARY["GMP SELECT PATIENT ACTIVE PROBLEMS":$P($G(^ICD9(+$G(^AUPNPROB(+$P(NODE,"^",4),0)),0)),"^"),1:"")

 S @ARY@(0)=COUNT

 Q

IBDFN11   ;ALB/CMR - ENCOUNTER FORM - (entry points for reprint of dynamic data) ;5/21/93

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 +2       ;

REPRINT(IBPFID,LIST,ARY) ; -- returns dynamic lists previously printed on a form

 +1       ; -- input    IBPFID = ien of forms tracking file

 +2       ;             LIST = ien of selection list file

 +3       ;             ARY = name of array to return list in

 +4       ;

 +5       ; -- output   The format of the returned array is as follows:

 +6       ;            @ARY(0) = count of array element (0 if nothing found)

 +7       ;            @ARY(1) = provider ien^provider

 +8       ;         or @ARY(1) = problem ien^problem text^ICD code

 +9       ;         or @ARY(1) = classification question

 +10      ;

 +11       IF 'IBPFID!('LIST)

               QUIT 

 +12       NEW FID,ITEM,IBDIEN,NODE,COUNT

 +13      ; -- initialize counter

 +14       SET COUNT=0

 +15      ; -- clean out storage area

 +16       KILL @ARY

 +17      ; -- get field ids associated with this list

 +18       SET FID="S"_LIST

 +19       SET XREF=$SELECT($ORDER(^IBD(357.96,IBPFID,"AD",FID))[LIST:"AD",$ORDER(^IBD(357.96,IBPFID,"AC",FID))[LIST:"AC",1:"")

           IF XREF']""

               QUIT 

 +20       SET FID=$ORDER(^IBD(357.96,IBPFID,XREF,FID))

           IF FID'[LIST

               QUIT 

           Begin DoDot:1

 +21      ; -- get all items for the field id

 +22           SET ITEM=0

               FOR 

                   SET ITEM=$ORDER(^IBD(357.96,IBPFID,XREF,FID,ITEM))

                   IF 'ITEM

                       QUIT 

                   Begin DoDot:2

 +23      ; -- get ien for dynamic data entry

 +24                   SET IBDIEN=0

                       FOR 

                           SET IBDIEN=$ORDER(^IBD(357.96,IBPFID,XREF,FID,ITEM,IBDIEN))

                           IF 'IBDIEN

                               QUIT 

                           SET NODE=$SELECT(XREF="AD":$GET(^IBD(357.96,IBPFID,2,IBDIEN,0)),1:$GET(^IBD(357.96,IBPFID,1,IBDIEN,0)))

                           IF NODE]""

                               Begin DoDot:3

 +25      ; -- set output array with dynamic data previously printed

 +26                               SET COUNT=COUNT+1

 +27                               SET @ARY@(COUNT)=$PIECE(NODE,"^",4)_"^"_$PIECE(NODE,"^",8)_"^"_$SELECT(ARY["GMP SELECT PATIENT ACTIVE PROBLEMS":$PIECE($GET(^ICD9(+$GET(^AUPNPROB(+$PIECE(NODE,"^",4),0)),0)),"^"),1:"")

                               End DoDot:3

                   End DoDot:2

           End DoDot:1

 +28       SET @ARY@(0)=COUNT

 +29       QUIT