PSS211PO ;DAL/JCH - PATCH PSS*1.0*211 POST INSTALL ;09/13/2017
Source file <PSS211PO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;MAIN ENTRY POINT
|
|
| HDIS(FIL,DOMPTR,DOMAIN) | ; Do dummy 'seeding'
|
|
| PSEED(FIL,DOMPTR,DOMAIN) | ||
| PSTDONE(MSG) | ; display FINISHED message
|
|
| DUMSEED(PSMFILE,PSDTAG) | ; New file <#nn.99> contains no data, can't be seeded unless there is at least one entry
; MASTER DOSAGE FORM (#50.60699) file initial population data elements from DAT99 line tag |
|
| INSREC(PSFILE,PSIEN,PSFDA) | ; Insert PSIEN into file PSFILE with data in PSFDA
|
|
| PSTHALT(MSG) | ; display error message
|
|
| SEEDOSF |
