BDGICF.m

BDGICF ; IHS/ANMC/LJF - INCOMPLETE CHART FORMS ; 

 ;;5.3;PIMS;**1004**;MAY 28, 2004

 ;IHS/OIT/LJF 09/29/2005 PATCH 1004 Fixed prompt

 ;

REPORT ; -- choose which report to print

 NEW BDGRPT,BDGA,X,Y,BDGQUIT

 W !! F X=1:1:5 S BDGA(X)=$J(X,3)_". "_$P($T(RPT+X),";;",2)

 ;S Y=$$READ^BDGF("NO^1:5","Choose Setup Option","","","",.BDGA)

 S Y=$$READ^BDGF("NO^1:5","Choose Form To Print","","","",.BDGA)  ;IHS/OIT/LJF 09/29/2005 PATCH 1004

 Q:'Y  I Y=5 S XQH="BDG IC FORMS" D EN^XQH G REPORT

 S BDGRPT=$P($T(RPT+Y),";;",3)

 D @BDGRPT D EN^XBVK("VALM")

 Q

 ;

RPT ;;

 ;;Discharge Outguides;;OUT^BDGICF;;

 ;;Deficiency Worksheets;;^BDGICF1;;

 ;;Incomplete Chart Summary;;^BDGICF2;;

 ;;Final A Sheet/Bill Prep Worksheet;;NOPAT^BDGCRB(1);;

 ;;On-line Help (Report Descriptions);;

 ;

 ;

OUT ;EP; call FM print template form discharge outguides

 NEW L,DIC,FLDS,BY,FR,TO

 S L=0,DIC="^DGPM(",(FLDS,BY)="[BDG DISCHARGE OUTGUIDE]"

 D EN1^DIP

 Q

BDGICF    ; IHS/ANMC/LJF - INCOMPLETE CHART FORMS ; 

 +1       ;;5.3;PIMS;**1004**;MAY 28, 2004

 +2       ;IHS/OIT/LJF 09/29/2005 PATCH 1004 Fixed prompt

 +3       ;

REPORT    ; -- choose which report to print

 +1        NEW BDGRPT,BDGA,X,Y,BDGQUIT

 +2        WRITE !!

           FOR X=1:1:5

               SET BDGA(X)=$JUSTIFY(X,3)_". "_$PIECE($TEXT(RPT+X),";;",2)

 +3       ;S Y=$$READ^BDGF("NO^1:5","Choose Setup Option","","","",.BDGA)

 +4       ;IHS/OIT/LJF 09/29/2005 PATCH 1004

           SET Y=$$READ^BDGF("NO^1:5","Choose Form To Print","","","",.BDGA)

 +5        IF 'Y

               QUIT 

           IF Y=5

               SET XQH="BDG IC FORMS"

               DO EN^XQH

               GOTO REPORT

 +6        SET BDGRPT=$PIECE($TEXT(RPT+Y),";;",3)

 +7        DO @BDGRPT

           DO EN^XBVK("VALM")

 +8        QUIT 

 +9       ;

RPT       ;;

 +1       ;;Discharge Outguides;;OUT^BDGICF;;

 +2       ;;Deficiency Worksheets;;^BDGICF1;;

 +3       ;;Incomplete Chart Summary;;^BDGICF2;;

 +4       ;;Final A Sheet/Bill Prep Worksheet;;NOPAT^BDGCRB(1);;

 +5       ;;On-line Help (Report Descriptions);;

 +6       ;

 +7       ;

OUT       ;EP; call FM print template form discharge outguides

 +1        NEW L,DIC,FLDS,BY,FR,TO

 +2        SET L=0

           SET DIC="^DGPM("

           SET (FLDS,BY)="[BDG DISCHARGE OUTGUIDE]"

 +3        DO EN1^DIP

 +4        QUIT