- DGANHD ;ALB/RMO - Driver Routine to Generate NHCU and DOM AMIS's 345-346 ; 29 AUG 90 10:20 am
- ;;5.3;Registration;;Aug 13, 1993
- ;
- D LO^DGUTL
- MYR ;Prompt User for AMIS Month/Year
- S DIC("A")="Select AMIS 345-346 MONTH/YEAR: ",DIC="^DGAM(345,",DIC(0)="AELMQ",DLAYGO=42.7 W ! D ^DIC K DIC,DLAYGO G Q:Y<0 S DGMYR=+Y
- ;
- CHK ;Check if AMIS has Already been Calculated for Selected Month/Year
- S %=1 I $D(^DGAM(345,DGMYR,"SE")) W !!,"Results already exist for this month. Do you wish to recalculate" S %=2 D YN^DICN G Q:%<0,EN^DGANHD3:%=2 I '% W !!?3,"Enter 'YES' to recalculate monthly totals, or 'NO' to print." G CHK
- ;
- GEN ;Prompt User to generate AMIS Code Sheets
- S %=0 D ASK^DGGECSA G Q:%<0 S DGCODFLG=$S(%=1:1,1:0)
- ;
- S (X,DGBOM)=$E(DGMYR,1,5)_"01" D EOM^DGUTL S DGEOM=Y S X1=DGBOM,X2=-1 D C^%DTC S DGPMYR=$E(X,1,5)_"00",DGPEOM=X
- S DGPGM="START^DGANHD",DGVAR="DGCODFLG^DGMYR^DGBOM^DGEOM^DGPMYR^DGPEOM" D ZIS^DGUTQ G Q:POP
- ;
- START ;Start AMIS Generation
- U IO K ^UTILITY($J,"DGANHD") D ^DGANHD1
- ;
- Q K ^UTILITY($J,"DGANHD"),%,DGBOM,DGCALFLG,DGCODFLG,DGEOM,DGMYR,DGPEOM,DGPGM,DGPMYR,DGVAR,POP,X,X1,X2,Y W ! D CLOSE^DGUTQ
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGANHD 1149 printed Jan 18, 2025@03:42:05 Page 2
- DGANHD ;ALB/RMO - Driver Routine to Generate NHCU and DOM AMIS's 345-346 ; 29 AUG 90 10:20 am
- +1 ;;5.3;Registration;;Aug 13, 1993
- +2 ;
- +3 DO LO^DGUTL
- MYR ;Prompt User for AMIS Month/Year
- +1 SET DIC("A")="Select AMIS 345-346 MONTH/YEAR: "
- SET DIC="^DGAM(345,"
- SET DIC(0)="AELMQ"
- SET DLAYGO=42.7
- WRITE !
- DO ^DIC
- KILL DIC,DLAYGO
- if Y<0
- GOTO Q
- SET DGMYR=+Y
- +2 ;
- CHK ;Check if AMIS has Already been Calculated for Selected Month/Year
- +1 SET %=1
- IF $DATA(^DGAM(345,DGMYR,"SE"))
- WRITE !!,"Results already exist for this month. Do you wish to recalculate"
- SET %=2
- DO YN^DICN
- if %<0
- GOTO Q
- if %=2
- GOTO EN^DGANHD3
- IF '%
- WRITE !!?3,"Enter 'YES' to recalculate monthly totals, or 'NO' to print."
- GOTO CHK
- +2 ;
- GEN ;Prompt User to generate AMIS Code Sheets
- +1 SET %=0
- DO ASK^DGGECSA
- if %<0
- GOTO Q
- SET DGCODFLG=$SELECT(%=1:1,1:0)
- +2 ;
- +3 SET (X,DGBOM)=$EXTRACT(DGMYR,1,5)_"01"
- DO EOM^DGUTL
- SET DGEOM=Y
- SET X1=DGBOM
- SET X2=-1
- DO C^%DTC
- SET DGPMYR=$EXTRACT(X,1,5)_"00"
- SET DGPEOM=X
- +4 SET DGPGM="START^DGANHD"
- SET DGVAR="DGCODFLG^DGMYR^DGBOM^DGEOM^DGPMYR^DGPEOM"
- DO ZIS^DGUTQ
- if POP
- GOTO Q
- +5 ;
- START ;Start AMIS Generation
- +1 USE IO
- KILL ^UTILITY($JOB,"DGANHD")
- DO ^DGANHD1
- +2 ;
- Q KILL ^UTILITY($JOB,"DGANHD"),%,DGBOM,DGCALFLG,DGCODFLG,DGEOM,DGMYR,DGPEOM,DGPGM,DGPMYR,DGVAR,POP,X,X1,X2,Y
- WRITE !
- DO CLOSE^DGUTQ
- +1 QUIT