source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGAINP.m@ 1394

Last change on this file since 1394 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1DGAINP ;ALB/RMO - Driver Routine to Generate Inpatient AMIS's 334-341 ; 27 DEC 89 1:37 pm
2 ;;5.3;Registration;;Aug 13, 1993
3 ;
4 D LO^DGUTL
5MYR ;Prompt User for AMIS Month/Year
6 S DIC("A")="Select AMIS 334-341 MONTH/YEAR: ",DIC="^DGAM(334,",DIC(0)="AELMQ",DLAYGO=42.6 W ! D ^DIC K DIC,DLAYGO G Q:Y<0 S DGMYR=+Y
7 ;
8CHK ;Check if AMIS has Already been Calculated for Selected Month/Year
9 S %=1 I $D(^DGAM(334,DGMYR,"SE")) W !!,"Results already exist for this month. Do you wish to recalculate" S %=2 D YN^DICN G Q:%<0,EN^DGAINP3:%=2 I '% W !!?3,"Enter 'YES' to recalculate monthly totals, or 'NO' to print." G CHK
10 ;
11GEN ;Prompt User to Generate AMIS Code Sheets
12 S %=0 D ASK^DGGECSA G Q:%<0 S DGCODFLG=$S(%=1:1,1:0)
13 ;
14 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
15 S DGPGM="START^DGAINP",DGVAR="DGCODFLG^DGMYR^DGBOM^DGEOM^DGPMYR^DGPEOM" D ZIS^DGUTQ G Q:POP
16 ;
17START ;Start AMIS Generation
18 U IO K ^UTILITY($J,"DGAINP") D ^DGAINP1
19 ;
20Q K ^UTILITY($J,"DGAINP"),%,DGBOM,DGCODFLG,DGEOM,DGMYR,DGPEOM,DGPGM,DGPMYR,DGVAR,POP,X,X1,X2,Y W ! D CLOSE^DGUTQ
21 Q
Note: See TracBrowser for help on using the repository browser.