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

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1DGANHD3 ;ALB/RMO - Set-up Utility and Print NHCU and DOM AMIS's 345-346 ; 01 SEP 90 9:20 am
2 ;;5.3;Registration;;Aug 13, 1993
3 ;==============================================================
4 ;Set-up Utility Global to print NHCU and DOM AMIS segments for
5 ;a selected Month/Year.
6 ;
7 ;Input:
8 ; DGMYR -(Optional) Month/Year being printed in internal date format
9 ;==============================================================
10EN ;Entry point for IMS and MAS Inpatient AMIS 345-346 Print
11 I '$D(DGMYR) S DIC("A")="Select AMIS 345-346 MONTH/YEAR: ",DIC="^DGAM(345,",DIC(0)="AEMQ" W ! D ^DIC K DIC G Q:Y<0 S DGMYR=+Y
12 S DGPGM="START^DGANHD3",DGVAR="DGMYR" D ZIS^DGUTQ G Q:POP
13 ;
14START U IO K ^UTILITY($J,"DGANHD") F DGSEG=0:0 S DGSEG=$O(^DGAM(345,DGMYR,"SE",DGSEG)) Q:'DGSEG D DIV
15 D ^DGANHD4
16 ;
17Q K ^UTILITY($J,"DGANHD"),%,DGAM,DGAM0,DGDIV,DGEND,DGMYR,DGPGM,DGSEG,DGVAR,I,POP W ! D CLOSE^DGUTQ
18 Q
19 ;
20DIV ;Loop through AMIS Segments by Division to set the Utility Global
21 S DGEND=17
22 F DGDIV=0:0 S DGDIV=$O(^DGAM(345,DGMYR,"SE",DGSEG,"D",DGDIV)) Q:'DGDIV I $D(^(DGDIV,0)) S DGAM0=^(0) D SET
23 Q
24 ;
25SET ;Set Utility Global by Month/Year, Segment and Division
26 S DGAM="" F I=1:1:DGEND S $P(DGAM,"^",I)=0
27 F I=1:1:DGEND S $P(DGAM,"^",I)=+$P(DGAM0,"^",I+1)
28 S ^UTILITY($J,"DGANHD",DGMYR,DGSEG,DGDIV)=DGAM
29 Q
Note: See TracBrowser for help on using the repository browser.