- DGMTCOM ;ALB/CAW - Copay Exemption Test Main Menu Driver ;7 JAN 1992 8:00 am
- ;;5.3;Registration;;Aug 13, 1993
- ;
- EN ;Entry point to copay exemption test menu driver
- D HOME^%ZIS G:$D(^DOPT("DGMTCOP",6)) A
- S ^DOPT("DGMTCOP",0)="Copay Exemption Test Menu Options^1N^" F I=1:1 S X=$T(@(I)) Q:X="" S ^DOPT("DGMTCOP",I,0)=$P(X,";;",2,99)
- S DIK="^DOPT(""DGMTCOP""," D IXALL^DIK K DIK
- ;
- A W !! S DIC="^DOPT(""DGMTCOP"",",DIC(0)="AEMQ" D ^DIC K DIC Q:Y<0 D @+Y G A
- ;
- 1 ;;Add a New Copay Exemption Test
- S DGMTYPT=2 G EN^DGMTA
- ;
- 2 ;;Adjudicate a Copay Exemption Test
- S DGMTYPT=2 G ADJ^DGMTEO
- ;
- 3 ;;Edit an Existing Copay Exemption Test
- S DGMTYPT=2 G EN^DGMTE
- ;
- 4 ;;Delete a Copay Exemption Test
- S DGMTYPT=2 G EN^DGMTDEL
- ;
- 5 ;;List Incomplete Copay Tests
- S DGMTYPT=2 G EN^DGMTOREQ
- ;
- 6 ;;View Copay Exemption Test Editing Activity
- S DGMTYPT=2 G DIS^DGMTAUD
- ;
- 7 ;;View a Past Copay Test
- S DGMTYPT=2 G EN^DGMTV
- ;
- 8 ;;Copay Test Needing Updated At Next Appointment
- S DGMTYPT=2 G ^DGMTOFA
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMTCOM 1028 printed Feb 19, 2025@00:10:41 Page 2
- DGMTCOM ;ALB/CAW - Copay Exemption Test Main Menu Driver ;7 JAN 1992 8:00 am
- +1 ;;5.3;Registration;;Aug 13, 1993
- +2 ;
- EN ;Entry point to copay exemption test menu driver
- +1 DO HOME^%ZIS
- if $DATA(^DOPT("DGMTCOP",6))
- GOTO A
- +2 SET ^DOPT("DGMTCOP",0)="Copay Exemption Test Menu Options^1N^"
- FOR I=1:1
- SET X=$TEXT(@(I))
- if X=""
- QUIT
- SET ^DOPT("DGMTCOP",I,0)=$PIECE(X,";;",2,99)
- +3 SET DIK="^DOPT(""DGMTCOP"","
- DO IXALL^DIK
- KILL DIK
- +4 ;
- A WRITE !!
- SET DIC="^DOPT(""DGMTCOP"","
- SET DIC(0)="AEMQ"
- DO ^DIC
- KILL DIC
- if Y<0
- QUIT
- DO @+Y
- GOTO A
- +1 ;
- 1 ;;Add a New Copay Exemption Test
- +1 SET DGMTYPT=2
- GOTO EN^DGMTA
- +2 ;
- 2 ;;Adjudicate a Copay Exemption Test
- +1 SET DGMTYPT=2
- GOTO ADJ^DGMTEO
- +2 ;
- 3 ;;Edit an Existing Copay Exemption Test
- +1 SET DGMTYPT=2
- GOTO EN^DGMTE
- +2 ;
- 4 ;;Delete a Copay Exemption Test
- +1 SET DGMTYPT=2
- GOTO EN^DGMTDEL
- +2 ;
- 5 ;;List Incomplete Copay Tests
- +1 SET DGMTYPT=2
- GOTO EN^DGMTOREQ
- +2 ;
- 6 ;;View Copay Exemption Test Editing Activity
- +1 SET DGMTYPT=2
- GOTO DIS^DGMTAUD
- +2 ;
- 7 ;;View a Past Copay Test
- +1 SET DGMTYPT=2
- GOTO EN^DGMTV
- +2 ;
- 8 ;;Copay Test Needing Updated At Next Appointment
- +1 SET DGMTYPT=2
- GOTO ^DGMTOFA
