MAIN LINE
OPEN
'GETPKEY'
READ
GET-PNSS-RECORD
OPEN
READ
'SCREENIO'
DISPLAY-FILE-ACCESS-MSG
CLOSE
GET-PARTICIPANT-RECORD
'GETPKEY'
GET-MOTHER-INFO
MOVE-PARTICIPANT-TO-PNSS
LOAD-PANEL-FIELDS
'SCREENIO'
'SCREENIO'
UNPROTECT-KID1
UNPROTECT-KID2
UNPROTECT-KID3
INIT-INFANT-PANELS
UNPROTECT-KID1
UNPROTECT-KID2
UNPROTECT-KID3
UNPROTECT-KID1
'SCREENIO'
'GETPKEY'
GET-PARTICIPANT-RECORD
LOAD-KID-INFO
UNPROTECT-KID2
LOAD-KID-INFO
UNPROTECT-KID3
LOAD-KID-INFO
GET-KIDS
HOT-KEY-EDITS
GET-DATA-AND-INIT-PANELS
'SCREENIO'
HOT-KEY-EDITS
GET-PREGNANT-PANEL
'SCREENIO'
GET-PNSS-OPTION
MOVE-SCRN-TO-PNSS-REC
WRITE
REWRITE
PUT-PNSS-RECORD
SAVE-PNSS-DATA
GET-PREGNANT-WOMAN-INFO
'SCREENIO'
HOT-KEY-EDITS
GET-POST-PARTUM-PANEL
GET-KIDS
GET-PARTICIPANT-RECORD
LOAD-KID-INFO
GET-PNSS-OPTION
SAVE-PNSS-DATA
GET-POST-PARTUM-INFO
CLOSE
'SCREENIO'
1000-MAIN
