SD53P234 ;ALB/RBS - Patch SD*5.3*234 Install Utility Routine ; 3/12/01 1:03pm
Source file <SD53P234.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ;Main entry point for Environment check point.
|
|
| PRE | ;Main entry point for Pre-init items.
|
|
| POST | ;Main entry point for Post-init items.
|
|
| PROGCHK(XPDABORT) | ;checks for necessary programmer variables
|
|
| PARMCHK(XPDABORT) | ;checks for proper param file ien
|
|
| POST1 | ;Update client/server files.
|
|
| POST2 | ;Loop (#404.471)-PCMM HL7 TRANSMISSION LOG file
; Search for HL7's with 'A'ccepted Status and Transmission D/T within ; the Beginning and Ending date's. |
|
| CNTZPC | ; Total Number HL7's since Baseline Seeding to current date
; Output; SCTOTAL = total HL7's since Baseline seeding ; |
|
| LOOP | ;Loop thru PCMM HL7 TRANSMISSION LOG file and find every entry
; with STATUS="A", and re-transmit. ; Output; SCTOT = total marked counter |
|
| ZPC(TRANI) | ; count number of (#404.49,ien) pointers to Provider ID's
|
|
| MSG(SCTOT,SCTOTAL,SCXERR) | ; send e-mail to user's
|
|
| CHECK(SCP212) | ; Determine whether or not the Baseline has run.
; Input: None ; Output: ; Function Value: Return date Baseline was run |
|
| SETUP | ; setup start processing time
; The ^XTMP global will be used as an audit trail for 30 days to ; prevent this process from running more than once. ; ^XTMP("SD53P234",0)=STRING ; STRING = 7 fields of data delimited by "^" up-arrow ; 1 = purge date = date ^XTMP global will be purged ; 2 = run date = date routine was run ; 3 = start d/t = start date & time of processing ; 4 = stop d/t = stop date & time of processing ; 5 = DUZ of User= ID # of user running process ; 6 = HL7 count = Total number or HL7's marked for retransmit ; 7 = TOTAL HL7'S that should be loaded from original Baseline. |
| FileNo | Call Tags |
|---|---|
| ^SCTM(404.44 - [#404.44] | GET1^DIQ |
| ^SCPT(404.471 - [#404.471] | GETS^DIQ |
