sHelp
                                     MIS.PROGRAM
     i   2
 main
   certified.dates
   comments
   customer.defined.queries
   residences
     fundings
   services
     capacities.gp.criteria
     specialties
   site.offices

 Ì   €   i   2
main
[mnemonic]
&(G)GPM[gpm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mnemonic                    10 FREE     L                 gpm                                                         
 active                       1 YN       L                 &(G)GPM[gpm]|0                                              
 adm.database                10 FREE     L  MIS.PROG.ADM   &(G)GPM[gpm]|6                                          
 alt.mnemonic                10 FREE     L                 &(G)GPM[gpm]|2                                              
 certified                    1 YN       L                 &(G)GPM[gpm]|12                                             
 description                 30 FREE     L                 &(G)GPM[gpm]|1                                              
 end.date                     8 DATE     L                 &(G)GPM[gpm]|9                                              
 facility                    10 FREE     L  MIS.FACILITY   &(G)GPM[gpm]|7                                          
 generic                      1 YN       L                 &(G)GPM[gpm]|11                                             
 last.update                  8 PINT     R                 &(G)GPM[gpm]UPD                                             
 license.renewal.date         8 DATE     L                 &(G)GPM[gpm]LIC|3                                           
 license.required             1 YN       L                 &(G)GPM[gpm]LIC|0                                           
 license.status              10 FREE     L  MIS.LICENSE.ST &(G)GPM[gpm]LIC|2                                       
 license.type                16 CHOICE   L                 &(G)GPM[gpm]LIC|1                                           
 med.admin.approved           1 YN       L                 &(G)GPM[gpm]|10                                             
 primary.location            10 FREE     L  MIS.LOCN       &(G)GPM[gpm]|4                                          
 program.type                10 FREE     L  MIS.PROG.TYPE  &(G)GPM[gpm]|3                                          
 start.date                   8 DATE     L                 &(G)GPM[gpm]|8                                              
 vendor                      11 FREE     L  MIS.VEN        &(G)GPM[gpm]|5                                          
 Ì   €   i   2
certified.dates
[mnemonic,  certified.start]
&(G)GPM[gpm]CTDT[csDT]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 certified.start              8 DATE     L                 csDT                                                        
 certified.active             1 YN       L                 &(G)GPM[gpm]CTDT[csDT]|0                                    
 certified.end                8 DATE     L                 &(G)GPM[gpm]CTDT[csDT]|1                                    
 Ì   €   i   2
comments
[mnemonic,  comment.q]
&(G)GPM[gpm]C[addCQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 comment.q                    2 PINT     R                 addCQ                                                       
 any.comments                 1 YN       L                 VAL=IF{@MIS.PROGRAM.comments[@MIS.PROGRAM.mnemonic,1]       
                                                           VAL="Y";"N"}                                                
 comment.line                60 TEXT     L                 &(G)GPM[gpm]C[addCQ]                                        
 Ì   €   i   2
customer.defined.queries
[mnemonic,  cd.query]
&(G)GPM[gpm]CD[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 cd.query                    10 FREE     L  MIS.QUERY      ggv                                                     
 cd.response                 75 QRY.RESP L                 &(G)GPM[gpm]CD[ggv]|0                                       
 Ì   €   i   2
residences
[mnemonic,  residence]
&(G)GPM[gpm]RES[ggn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 residence                   10 FREE     L  MIS.LOCN       ggn                                                     
 res.address                 30 FREE     L                 &(G)GPM[gpm]RES[ggn]ADD|0                                   
 res.barrier.free.beds        5 INT      R                 &(G)GPM[gpm]RES[ggn]|8                                      
 res.bedrooms                 5 INT      R                 &(G)GPM[gpm]RES[ggn]|10                                     
 res.billable                 1 YN       L                 &(G)GPM[gpm]RES[ggn]|12                                     
 res.building.type           10 FREE     L  MIS.BUILD.STAT &(G)GPM[gpm]RES[ggn]|1                                  
 res.city                    30 FREE     L                 &(G)GPM[gpm]RES[ggn]ADD|1                                   
 res.do.not.use1              0 FREE     L                 &(G)GPM[gpm]RES[ggn]|0                                      
 res.fax                     18 PHONE    L                 &(G)GPM[gpm]RES[ggn]ADD|5                                   
 res.housing.units            5 INT      R                 &(G)GPM[gpm]RES[ggn]|9                                      
 res.lease.end.date           8 DATE     L                 &(G)GPM[gpm]RES[ggn]|7                                      
 res.lease.start.date         8 DATE     L                 &(G)GPM[gpm]RES[ggn]|6                                      
 res.leased.by               10 FREE     L  MIS.LEASED.BY  &(G)GPM[gpm]RES[ggn]|3                                  
 res.owner.type              10 FREE     L  MIS.OWNER.TYPE &(G)GPM[gpm]RES[ggn]|2                                  
 res.phone                   18 PHONE    L                 &(G)GPM[gpm]RES[ggn]ADD|4                                   
 res.rent                     9 MONEY    R                 &(G)GPM[gpm]RES[ggn]|4                                      
 res.rent.incl.utils          1 YN       L                 &(G)GPM[gpm]RES[ggn]|5                                      
 res.state                    2 FREE     L                 &(G)GPM[gpm]RES[ggn]ADD|2                                   
 res.sub.section             10 FREE     L                 &(G)GPM[gpm]RES[ggn]|11                                     
 res.zip                     12 ZIP.POST L                 &(G)GPM[gpm]RES[ggn]ADD|3                                   
 Ì   €   i   2
fundings
[mnemonic,residence,  funding]
&(G)GPM[gpm]RES[ggn]FND[gfs]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 funding                     10 FREE     L  MIS.FUND.SOURCEgfs                                                     
 funding.award.date           8 DATE     L                 &(G)GPM[gpm]RES[ggn]FND[gfs]|2                              
 funding.award.id            11 FREE     L                 &(G)GPM[gpm]RES[ggn]FND[gfs]|0                              
 funding.capital.amount      10 MONEY    R                 &(G)GPM[gpm]RES[ggn]FND[gfs]|5                              
 funding.expiration.date      8 DATE     L                 &(G)GPM[gpm]RES[ggn]FND[gfs]|4                              
 funding.grantee             10 FREE     L                 &(G)GPM[gpm]RES[ggn]FND[gfs]|1                              
 funding.operation.amount    10 MONEY    R                 &(G)GPM[gpm]RES[ggn]FND[gfs]|6                              
 funding.start.date           8 DATE     L                 &(G)GPM[gpm]RES[ggn]FND[gfs]|3                              
 Ì   €   i   2
services
[mnemonic,  service]
&(G)GPM[gpm]SERV[ggs]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 service                     10 FREE     L  MIS.SVC        ggs                                                     
 address                     30 FREE     L                 &(G)GPM[gpm]SERV[ggs]CON|2                                  
 billable                     1 YN       L                 &(G)GPM[gpm]SERV[ggs]|6                                     
 billable.expiration.date     8 DATE     L                 &(G)GPM[gpm]SERV[ggs]|7                                     
 capacity                     6 PINT     L                 &(G)GPM[gpm]SERV[ggs]CAP|0                                  
 capacity.breakdown           1 YN       L                 &(G)GPM[gpm]SERV[ggs]CAP|4                                  
 capacity.include.pre         1 YN       L                 &(G)GPM[gpm]SERV[ggs]CAP|3                                  
 capacity.label              10 FREE     L                 &(G)GPM[gpm]SERV[ggs]CAP|2                                  
 capacity.type                1 CHOICE   L                 &(G)GPM[gpm]SERV[ggs]CAP|1                                  
 city                        30 FREE     L                 &(G)GPM[gpm]SERV[ggs]CON|3                                  
 contract                    10 FREE     L  MIS.INS.CTRC   &(G)GPM[gpm]SERV[ggs]|0                                 
 direct.enroll                1 YN       L                 &(G)GPM[gpm]SERV[ggs]|2                                     
 email                       40 FREE     L                 &(G)GPM[gpm]SERV[ggs]CON|8                                  
 fax                         18 PHONE    L                 &(G)GPM[gpm]SERV[ggs]CON|7                                  
 location                    10 FREE     L  MIS.LOCN       &(G)GPM[gpm]SERV[ggs]|1                                 
 name                        30 FREE     L                 &(G)GPM[gpm]SERV[ggs]CON|0                                  
 phone                       18 PHONE    L                 &(G)GPM[gpm]SERV[ggs]CON|6                                  
 registration.type            8 FREE     L  MIS.ADM.PT.STAT&(G)GPM[gpm]SERV[ggs]|3                                 
 state                        2 FREE     L                 &(G)GPM[gpm]SERV[ggs]CON|4                                  
 title                       30 FREE     L                 &(G)GPM[gpm]SERV[ggs]CON|1                                  
 update.from.adm              1 YN       L                 &(G)GPM[gpm]SERV[ggs]|5                                     
 update.isp                   1 YN       L                 &(G)GPM[gpm]SERV[ggs]|4                                     
 waitlist.avg                 4 PINT     R                 &(G)GPM[gpm]SERV[ggs]WL|1                                   
 waitlist.number              4 PINT     R                 &(G)GPM[gpm]SERV[ggs]WL|0                                   
 zip                         12 ZIP.POST L                 &(G)GPM[gpm]SERV[ggs]CON|5                                  
 Ì   €   i   2
capacities.gp.criteria
[mnemonic,service,  cap.gp.crit]
&(G)GPM[gpm]SERV[ggs]CAP["CRI",gpmgc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 cap.gp.crit                 14 FREE     L  MIS.PROG.GP.CR gpmgc                                                   
 cap.gp.crit.capacity         4 PINT     R                 &(G)GPM[gpm]SERV[ggs]CAP["CRI",gpmgc]|0                     
 Ì   €   i   2
specialties
[mnemonic,service,  specialty]
&(G)GPM[gpm]SERV[ggs]S[gpms]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 specialty                   10 FREE     L  MIS.PROG.SPEC  gpms                                                    
 Ì   €   i   2
site.offices
[mnemonic,  site.office]
&(G)GPM[gpm]SITE[gst]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 site.office                 10 FREE     L  MIS.SITE       gst                                                     

 Index Files                        Subscripts/Physical Base

 alt.mnemonic.x                     [alt.mnemonic] = mnemonic
                                      &(G)GPMAX[gpma]

 site.pgm.x                         [site.office,mnemonic]
                                      &(G)GPMST[gst,gpm]