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

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

initial load of FOIAVistA 6/30/08 version

File size: 2.5 KB
Line 
1DG53231P ;ISA/Zoltan - Post-install for DG*5.3*231;April 7, 1999
2 ;;5.3;Registration;**231**;Aug 13, 1993
3 ;
4POST ; Re-compiles print and input templates for those fields
5 ; included in the patch.
6 N FLDLIST,FLD,PTEMP,ETEMP,TEMPLATE,ROUTINE,MAXSIZE,X,Y,DMAX
7 D LOADFLDS(.FLDLIST) ; Obtain list of fields being sent.
8 S FLD="" ; For each field...
9 F S FLD=$O(FLDLIST(FLD)) Q:FLD="" D
10 . M PTEMP=^DIPT("AF",2,FLD) ; ...note affected print templates...
11 . M ETEMP=^DIE("AF",2,FLD) ; ...note affected edit templates.
12 ; Determine maximum routine size...
13 S MAXSIZE=$$ROUSIZE^DILF
14 ; Recompile print templates...
15 D BMES^XPDUTL(" *****************************")
16 D BMES^XPDUTL(" * Compiling Print Templates *")
17 D BMES^XPDUTL(" *****************************")
18 S TEMPLATE=""
19 F S TEMPLATE=$O(PTEMP(TEMPLATE)) Q:TEMPLATE="" D
20 . S ROUTINE=$G(^DIPT(TEMPLATE,"ROU")) ; Note Routine Name
21 . I ROUTINE="" Q ; Not a compiled template.
22 . ; Set up bulletproof FileMan call.
23 . S X=ROUTINE,Y=TEMPLATE,DMAX=MAXSIZE
24 . S $E(X)="" ; Remove initial ^.
25 . ; This NEW only lasts for one loop iteration...
26 . N ROUTINE,TEMPLATE,MAXSIZE,PTEMP,ETEMP
27 . D EN^DIPZ ; Classic FileMan--Trust No One.
28 ; Recompile edit templates...
29 D BMES^XPDUTL(" ")
30 D BMES^XPDUTL(" *****************************")
31 D BMES^XPDUTL(" * Compiling Input Templates *")
32 D BMES^XPDUTL(" *****************************")
33 S TEMPLATE=""
34 F S TEMPLATE=$O(ETEMP(TEMPLATE)) Q:TEMPLATE="" D
35 . S ROUTINE=$G(^DIE(TEMPLATE,"ROU")) ; Note Routine Name
36 . I ROUTINE="" Q
37 . ; Set up bulletproof FileMan call.
38 . S X=ROUTINE,Y=TEMPLATE,DMAX=MAXSIZE
39 . S $E(X)="" ; Remove initial ^.
40 . ; This NEW only lasts for one loop iteration...
41 . N ROUTINE,TEMPLATE,MAXSIZE,PTEMP,ETEMP
42 . D EN^DIEZ ; Classic FileMan--Trust No One.
43 Q
44LOADFLDS(ARR) ; Load field list.
45 N FNUM,FNAME,LINE,TEXT
46 F TEXT=1:1 S LINE=$T(FLDS+TEXT) Q:$P(LINE," ")'="" D
47 . S FNUM=$P(LINE,";",3)
48 . S FNAME=$P(LINE,";",4)
49 . S ARR(FNUM)=FNAME
50 Q
51FLDS ; Fields included in this patch.
52 ;;.02;SEX
53 ;;.03;DATE OF BIRTH
54 ;;.05;MARITAL STATUS
55 ;;.08;RELIGIOUS PREFERENCE
56 ;;.09;SOCIAL SECURITY NUMBER
57 ;;.111;STREET ADDRESS [LINE 1]
58 ;;.1112;ZIP+4
59 ;;.112;STREET ADDRESS [LINE 2]
60 ;;.113;STREET ADDRESS [LINE 3]
61 ;;.114;CITY
62 ;;.115;STATE
63 ;;.117;COUNTY
64 ;;.131;PHONE NUMBER [RESIDENCE]
65 ;;.132;PHONE NUMBER [WORK]
66 ;;.211;K-NAME OF PRIMARY NOK
67 ;;.219;K-PHONE NUMBER
68 ;;.2403;MOTHER'S MAIDEN NAME
69 ;;.301;SERVICE CONNECTED?
70 ;;.302;SERVICE CONNECTED PERCENTAGE
71 ;;.31115;EMPLOYMENT STATUS
72 ;;.323;PERIOD OF SERVICE
73 ;;.351;DATE OF DEATH
74 ;;391;TYPE
75 ;;1901;VETERAN
76END ;End of field list.
Note: See TracBrowser for help on using the repository browser.