Insert hospital segment. A file consists of all hospital segment to be added. The programs reads the input file and add the segments to the DB.
IDENTIFICATION DIVISION.
PROGRAM-ID. HOSPPRG.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 IMS-FUNCTIONS.
05 WS-GU PIC X(04) VALUE 'GU'.
05 WS-GN PIC X(04) VALUE 'GN'.
05 WS-GNP PIC X(04) VALUE 'GNP'.
05 WS-ISRT PIC X(04) VALUE 'ISRT'.
05 WS-REPL PIC X(04) VALUE 'REPL'.
05 WS-DLET PIC X(04) VALUE 'DLET'.
05 WS-GHU PIC X(04) VALUE 'GHU'.
***** I/O AREAS ***************************
01 HOSP-I-O-AREA.
05 HOSP-NAME PIC X(20).
05 HOSP-ADDRESS PIC X(30).
05 HOSP-PHONE PIC X(10).
01 WARD-I-O-AREA.
05 WARD-NO PIC X(04).
05 WARD-BEDAVAIL PIC X(03).
05 WARD-TYPE PIC X(20).
01 PATIENT-I-O-AREA.
05 PATIENT-BED-IDENT PIC X(04).
05 PATIENT-NAME PIC X(20).
05 PATIENT-DATEADMT PIC X(06).
01 WS-I-O-AREA PIC X(100).
************* UNQUALIFIED SSA ******************
01 UNQUAL-HOSPITAL-SSA PIC X(09) VALUE 'HOSPITAL'.
01 UNQUAL-WARD-SSA PIC X(09) VALUE 'WARD'.
01 UNQUAL-PATIENT-SSA PIC X(09) VALUE 'PATIENT'.
************* QUALIFIED SSA ********************
01 HOSPITAL-SSA.
05 FILLER PIC X(19)
VALUE 'HOSPITAL(HOSPNAME='.
05 HOSPNAME-SSA PIC X(20).
05 FILLER PIC X VALUE ')'.
01 WARD-SSA.
05 FILLER PIC X(19)
VALUE 'WARD (WARDNO ='.
05 WARDNO-SSA PIC X(04).
05 FILLER PIC X VALUE ')'.
01 PATIENT-SSA.
05 FILLER PIC X(19)
VALUE 'PATIENT (PATNAME ='.
05 PATIENT-SSA PIC X(04).
05 FILLER PIC X VALUE ')'.
LINKAGE SECTION.
002400 01 PCB-MASK.
002500 05 TEST-DBD-NAME PIC X(08).
002600 05 TEST-LEVEL-NO PIC X(02).
002700 05 STATUS-CODE-1 PIC X(02).
05 KEY-LENGTH PIC S9(05) COMP.
05 SEG-NAME-FDBK-1 PIC X(08).
05 LENGTH-FDBK-1 PIC S9(05) COMP.
05 FILLER PIC S9(05) COMP.
05 TEST-KEYFEED PIC X(26).
PROCEDURE DIVISION.
ENTRY 'DLITCBL' USING PCB-MASK.
PERFORM PROCESSH-PARA.
PERFORM PROCESSW-PARA.
PERFORM PROCESSP-PARA.
GOBACK.
PROCESSH-PARA.
MOVE 'KK HOSPITAL' TO HOSP-NAME.
MOVE '1234' TO HOSP-PHONE.
MOVE 'TVM' TO HOSP-ADDRESS.
CALL 'CBLTDLI' USING WS-ISRT,
PCB-MASK,
HOSP-I-O-AREA,
UNQUAL-HOSPITAL-SSA.
IF STATUS-CODE-1 EQUAL TO SPACES
DISPLAY 'KK HOSPITAL INSERTED'
END-IF.
MOVE 'SS HOSPITAL' TO HOSP-NAME.
MOVE '1235' TO HOSP-PHONE.
MOVE 'KOCHI' TO HOSP-ADDRESS.
CALL 'CBLTDLI' USING WS-ISRT,
PCB-MASK,
HOSP-I-O-AREA,
UNQUAL-HOSPITAL-SSA.
IF STATUS-CODE-1 = ' '
DISPLAY 'SS HOSPITAL INSERTED'
END-IF.
MOVE 'XX HOSPITAL' TO HOSP-NAME.
MOVE '1236' TO HOSP-PHONE.
MOVE 'ERNAKULAM' TO HOSP-ADDRESS.
CALL 'CBLTDLI' USING WS-ISRT,
PCB-MASK,
HOSP-I-O-AREA,
UNQUAL-HOSPITAL-SSA.
IF STATUS-CODE-1 = ' '
DISPLAY 'XX HOSPITAL INSERTED'
END-IF.
PROCESSW-PARA.
MOVE 'KK HOSPITAL' TO HOSPNAME-SSA.
MOVE 'ICU' TO WARD-TYPE.
MOVE '1111' TO WARD-NO.
MOVE '11' TO WARD-BEDAVAIL.
CALL 'CBLTDLI' USING WS-ISRT,
PCB-MASK,
WARD-I-O-AREA,
HOSPITAL-SSA,
UNQUAL-WARD-SSA.
DISPLAY STATUS-CODE-1.
IF STATUS-CODE-1 = ' '
DISPLAY 'SUCCESS - ICU'
END-IF.
MOVE 'SURGERY' TO WARD-TYPE.
MOVE '55' TO WARD-NO.
MOVE '22' TO WARD-BEDAVAIL.
MOVE 'XX HOSPITAL' TO HOSPNAME-SSA.
CALL 'CBLTDLI' USING WS-ISRT,
PCB-MASK,
WARD-I-O-AREA,
HOSPITAL-SSA,
UNQUAL-WARD-SSA.
DISPLAY STATUS-CODE-1.
IF STATUS-CODE-1 = ' '
DISPLAY 'SUCCESS - SURGERY'
END-IF.
PROCESSP-PARA.
MOVE 'RISHIN' TO PATIENT-NAME.
MOVE '0002' TO PATIENT-BED-IDENT.
MOVE '121290' TO PATIENT-DATEADMT.
MOVE '55' TO WARDNO-SSA.
MOVE 'XX HOSPITAL' TO HOSPNAME-SSA.
CALL 'CBLTDLI' USING WS-ISRT,
PCB-MASK,
PATIENT-I-O-AREA,
HOSPITAL-SSA,
WARD-SSA,
UNQUAL-PATIENT-SSA.
IF STATUS-CODE-1 = ' '
DISPLAY 'SUCCESS - RISHIN'
END-IF.
1 comments:
Cela fait un moment que je suis sur des sites de blogues et aujourd’hui, j’ai le sentiment que je devrais partager mon histoire, car j’étais aussi une victime. J'avais le VIH pendant 6 ans et je n'avais jamais pensé que j'aurais jamais un remède, ce qui m'a rendu impossible de me marier avec l'homme avec lequel je devais me marier, même après deux ans de relation, il a rompu avec moi quand il découvre que j'étais séropositif. J'ai donc entendu parler du Dr Itua sur le site de blog qui traitait une personne et cette personne a raconté comment elle avait guéri et laissé ses coordonnées, j'ai contacté le Dr Itua. Il l'a confirmé et j'ai décidé d'essayer. aussi et utiliser ses médicaments à base de plantes, c’est ainsi que mon fardeau a complètement cessé Mon fils va avoir 2 ans bientôt et je suis reconnaissant envers Dieu et reconnaissant envers son médicament aussi. Itua peut ainsi guérir la maladie suivante… Maladie d'Alzheimer, maladie de Bechet, maladie de Crohn, maladie de Parkinson, schizophrénie, cancer du poumon, cancer du sein, cancer du sein Cancer du sein, cancer du sang, cancer de la prostate, siva.Mutation familiale de facteur V de Leiden, épilepsie, syndrome de Duktren, tumeur Desmoplastic à cellules à petites cellules rondes, maladie cœliaque, maladie de Creutzfeldt – Jakob, angiopathie amyloïde cérébrale, ataxie, arthrose, Amyotrophic Scoliose latérale, fibromyalgie, toxicité de la fluoroquinolone
Syndrome Fibrodysplasie d'Ossificans ProgrèsSclérose, Convulsions, Maladie d'Alzheimer, Carcinome corticosurrénal.Asthme, Maladies allergiques.Hiv_Aids, Herpe, CUP, Glaucome., Cataractes, Dégénérescence maculaire, Maladie cardiovasculaire, Maladie pulmonaire, Maladie pulmonaire, Ostéoporose
Démence.Lupus.
, Maladie de Cushing, Insuffisance cardiaque, Sclérose en plaques, Hypertension artérielle, Cancer du colza, Cancer du sang, Cancer du sein, Cancer du sein, Cancer du poumon, Cancer du rein, VIH, Herpès, Hépatite B, Inflammation du foie, Diabète, Fibroïde, Get Your Ex Retour, si vous avez (A juste le joindre à drituaherbalcenter@gmail.com ou numéro Whatsapp. + 2348149277967) Il peut également vous conseiller sur la façon de gérer certains problèmes conjugaux. C'est un homme bon.
Post a Comment