| [613] | 1 | DG53231P ;ISA/Zoltan - Post-install for DG*5.3*231;April 7, 1999
|
|---|
| 2 | ;;5.3;Registration;**231**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | POST ; 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
|
|---|
| 44 | LOADFLDS(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
|
|---|
| 51 | FLDS ; 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
|
|---|
| 76 | END ;End of field list.
|
|---|
