AZANWRN.m

AZANWRN ; IHS/PHXAO/TMJ - Medicaid Warning Message ; [ 02/03/03  11:55 AM ]

 ;1.9;AZAM ANMC Medicaid Utilities;June 21,1994

 ;

MAIN ; -- main warning driver    

 D SET,ON,WARN,OFF

 Q

 ;

SET ; -- set up reverse video on,off

 D CURRENT^%ZIS

 S AZAM=$O(^%ZIS(1,"C",$I,0))

 Q:^%ZIS(1,AZAM,"TYPE")'="TRM"

 Q:'$D(^%ZIS(2,^%ZIS(1,AZAM,"SUBTYPE"),5))

 S AZAMSUB=+^%ZIS(1,AZAM,"SUBTYPE")

 S AZAMON=$P(^%ZIS(2,AZAMSUB,5),U,4),AZAMOFF=$P(^%ZIS(2,AZAMSUB,5),U,5)

 Q    

 ;

ON ; -- turn reverse video on

 I $D(AZAMSUB) W @AZAMON

 Q

 ;

WARN ; -- display warning

 W @IOF,"WARNING:  MAKE SURE YOU HAVE BEEN NOTIFIED THAT THE MOST "

 W "CURRENT MEDICAID"

 W !,?10,"FILE IS READY FOR USE, PLEASE CALL THE PHOENIX AREA BUSINESS OFFICE !!!!"

 Q

 ;

OFF ; -- turn reverse video off

 I $D(AZAMSUB) W @AZAMOFF

 Q

AZANWRN   ; IHS/PHXAO/TMJ - Medicaid Warning Message ; [ 02/03/03  11:55 AM ]

 +1       ;1.9;AZAM ANMC Medicaid Utilities;June 21,1994

 +2       ;

MAIN      ; -- main warning driver    

 +1        DO SET

           DO ON

           DO WARN

           DO OFF

 +2        QUIT 

 +3       ;

SET       ; -- set up reverse video on,off

 +1        DO CURRENT^%ZIS

 +2        SET AZAM=$ORDER(^%ZIS(1,"C",$IO,0))

 +3        IF ^%ZIS(1,AZAM,"TYPE")'="TRM"

               QUIT 

 +4        IF '$DATA(^%ZIS(2,^%ZIS(1,AZAM,"SUBTYPE"),5))

               QUIT 

 +5        SET AZAMSUB=+^%ZIS(1,AZAM,"SUBTYPE")

 +6        SET AZAMON=$PIECE(^%ZIS(2,AZAMSUB,5),U,4)

           SET AZAMOFF=$PIECE(^%ZIS(2,AZAMSUB,5),U,5)

 +7        QUIT 

 +8       ;

ON        ; -- turn reverse video on

 +1        IF $DATA(AZAMSUB)

               WRITE @AZAMON

 +2        QUIT 

 +3       ;

WARN      ; -- display warning

 +1        WRITE @IOF,"WARNING:  MAKE SURE YOU HAVE BEEN NOTIFIED THAT THE MOST "

 +2        WRITE "CURRENT MEDICAID"

 +3        WRITE !,?10,"FILE IS READY FOR USE, PLEASE CALL THE PHOENIX AREA BUSINESS OFFICE !!!!"

 +4        QUIT 

 +5       ;

OFF       ; -- turn reverse video off

 +1        IF $DATA(AZAMSUB)

               WRITE @AZAMOFF

 +2        QUIT