BMEM.m

BMEM ; IHS/PHXAO/TMJ - Start up Driver Routine for AHCCCS DOWNLOAD PROGRAM ; 

 ;;1.0T1;MEDICAID ELIGIBILITY DOWNLOAD;;JUN 25, 2003

 ;

 ;

 ;

START ;Begin Unix Down Load

 ;

 ;

 ;

NEXT ;Begin RPMS Down Load

 ;

 ;

 ;

 ;

FALLOFF ;Do the Fall Off Routine

 ;

 ;

 ;

LOGO ;EP - Print logo of main menu.

 NEW A,D,I,L,N,R,V

 S L=18,R=61,D=R-L+1,N=R-L-1

 S I=$O(^DIC(9.4,"C","BME",0)),V=^DIC(9.4,I,"VERSION"),A=$O(^DIC(9.4,I,22,"B",V,0)),Y=$$FMTE^XLFDT($P(^DIC(9.4,I,22,A,0),U,2))

 W @IOF,!,$$CTR($$REPEAT^XLFSTR("*",D)),!?L,"*",$$CTR("INDIAN HEALTH SERVICE",N),?R,"*",!?L,"*",$$CTR("MEDICAID ELIGIBILITY DOWNLOAD",N),?R,"*",!?L,"*",$$CTR("VERSION "_V_", "_Y,N),?R,"*",!,$$CTR($$REPEAT^XLFSTR("*",D)),!

 W $$CTR($$LOC())

 ;Sub Menu Displays

 Q:$G(XQY0)=""

 I '$D(IORVON) S X="IORVON;IORVOFF" D ENDR^%ZISS

 S X=$P(XQY0,U,2)

 S:X="Medicaid Eligibility Download System" X="MAIN MENU"

 S X=$J("",2*$L(IORVON)-1)_IORVON_X_IORVOFF

 W !,$$CTR(X),!

 Q

 ;

CTR(X,Y) ;EP - Center X in a field Y wide.

 Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X

 ;----------

 ;

 ;

LOC() ;EP - Return location name from file 4 based on DUZ(2).

 Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")

 ;----------

BMEM      ; IHS/PHXAO/TMJ - Start up Driver Routine for AHCCCS DOWNLOAD PROGRAM ; 

 +1       ;;1.0T1;MEDICAID ELIGIBILITY DOWNLOAD;;JUN 25, 2003

 +2       ;

 +3       ;

 +4       ;

START     ;Begin Unix Down Load

 +1       ;

 +2       ;

 +3       ;

NEXT      ;Begin RPMS Down Load

 +1       ;

 +2       ;

 +3       ;

 +4       ;

FALLOFF   ;Do the Fall Off Routine

 +1       ;

 +2       ;

 +3       ;

LOGO      ;EP - Print logo of main menu.

 +1        NEW A,D,I,L,N,R,V

 +2        SET L=18

           SET R=61

           SET D=R-L+1

           SET N=R-L-1

 +3        SET I=$ORDER(^DIC(9.4,"C","BME",0))

           SET V=^DIC(9.4,I,"VERSION")

           SET A=$ORDER(^DIC(9.4,I,22,"B",V,0))

           SET Y=$$FMTE^XLFDT($PIECE(^DIC(9.4,I,22,A,0),U,2))

 +4        WRITE @IOF,!,$$CTR($$REPEAT^XLFSTR("*",D)),!?L,"*",$$CTR("INDIAN HEALTH SERVICE",N),?R,"*",!?L,"*",$$CTR("MEDICAID ELIGIBILITY DOWNLOAD",N),?R,"*",!?L,"*",$$CTR("VERSION "_V_", "_Y,N),?R,"*",!,$$CTR($$REPEAT^XLFSTR("*",D)),!

 +5        WRITE $$CTR($$LOC())

 +6       ;Sub Menu Displays

 +7        IF $GET(XQY0)=""

               QUIT 

 +8        IF '$DATA(IORVON)

               SET X="IORVON;IORVOFF"

               DO ENDR^%ZISS

 +9        SET X=$PIECE(XQY0,U,2)

 +10       IF X="Medicaid Eligibility Download System"

               SET X="MAIN MENU"

 +11       SET X=$JUSTIFY("",2*$LENGTH(IORVON)-1)_IORVON_X_IORVOFF

 +12       WRITE !,$$CTR(X),!

 +13       QUIT 

 +14      ;

CTR(X,Y)  ;EP - Center X in a field Y wide.

 +1        QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X

 +2       ;----------

 +3       ;

 +4       ;

LOC()     ;EP - Return location name from file 4 based on DUZ(2).

 +1        QUIT $SELECT($GET(DUZ(2)):$SELECT($DATA(^DIC(4,DUZ(2),0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")

 +2       ;----------