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. |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | CHECK+13 |
| GETS^DIQ | LOOP+9 |
| STATUS^SCMCHLRR | LOOP+22 |
| $$UPCLNLST^SCMCUT | POST1+2 |
| $$SITE^VASITE | MSG+3 |
| $$DT^XLFDT | SETUP+14 |
| $$FMTE^XLFDT | ENV+9, MSG+14, MSG+15, MSG+18 |
| $$HTFM^XLFDT | SETUP+14 |
| $$NOW^XLFDT | MSG+5, SETUP+15 |
| ^XMD | MSG+26 |
| BMES^XPDUTL | ENV+8, PROGCHK+3, PARMCHK+3 |
| MES^XPDUTL | ENV+9, ENV+10, ENV+11, PROGCHK+4, PROGCHK+5, PROGCHK+6, PARMCHK+4, PARMCHK+5, PARMCHK+6, POST1+3 , POST1+5 |
| FileNo | Call Tags |
|---|---|
| ^SCTM(404.44 - [#404.44] | GET1^DIQ |
| ^SCPT(404.471 - [#404.471] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCPT(404.471 - [#404.471] | LOOP+6, ZPC+4, ZPC+5, ZPC+6 |
| ^SCPT(404.49 - [#404.49] | ZPC+7 |
| ^SCTM(404.44 - [#404.44] | PARMCHK+2, CHECK+8 |
| ^TMP($J | POST2+28!, CNTZPC+3, CNTZPC+5, ZPC+8*, CHECK+12!, CHECK+14, CHECK+17! |
| ^XTMP("SD53P234" | ENV+6, ENV+7, POST+2, POST2+23, POST2+26*, MSG+4, MSG+27*, SETUP+16* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIFROM | MSG+2~ |
| DT | PROGCHK+2 |
| DUZ | PROGCHK+2, MSG+6, SETUP+15 |
| DUZ(0 | PROGCHK+2 |
| SC1 | POST2+5~, POST2+6*, MSG+23, CHECK+7* |
| SC2 | POST2+5~, POST2+6*, MSG+24, CHECK+9*, CHECK+15*, CHECK+20*, CHECK+25* |
| SC3 | POST2+5~, POST2+6* |
| SCARR | LOOP+4~, LOOP+7! |
| SCARR( | LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+16 |
| SCBDATE | POST2+5~, POST2+9*, LOOP+19, CHECK+30* |
| SCEDATE | POST2+5~, POST2+9*, LOOP+20, CHECK+24 |
| SCERR | LOOP+4~, LOOP+7!, LOOP+10 |
| SCETIME | MSG+2~, MSG+5*, MSG+15 |
| SCP212 | POST2+5~, POST2+6*, POST2+12, POST2+13, LOOP+18, MSG+18, CHECK~, CHECK+26*, CHECK+32* |
| SCSEQ | CNTZPC+4~, CNTZPC+5*, ZPC+2~, ZPC+3*, ZPC+4*, ZPC+5 |
| SCSEQI | ZPC+2~, ZPC+3*, ZPC+5*, ZPC+6 |
| SCSTIME | MSG+2~, MSG+4*, MSG+14 |
| SCTEXT | MSG+2~ |
| SCTEXT(1 | MSG+10* |
| SCTEXT(10 | MSG+20* |
| SCTEXT(11 | MSG+21* |
| SCTEXT(12 | MSG+22* |
| SCTEXT(13 | MSG+23* |
| SCTEXT(14 | MSG+24* |
| SCTEXT(15 | MSG+25* |
| SCTEXT(2 | MSG+11* |
| SCTEXT(3 | MSG+12* |
| SCTEXT(4 | MSG+13* |
| SCTEXT(5 | MSG+14* |
| SCTEXT(6 | MSG+15* |
| SCTEXT(7 | MSG+16* |
| SCTEXT(8 | MSG+17* |
| SCTEXT(9 | MSG+18* |
| SCTOT | POST2+5~, POST2+6*, POST2+20, POST2+24, LOOP+23*, MSG~, MSG+17 |
| SCTOTAL | POST2+5~, POST2+6*, POST2+20, POST2+25, CNTZPC+5*, MSG~, MSG+18 |
| SCTRANDT | LOOP+4~, LOOP+16*, LOOP+18, LOOP+19, LOOP+20 |
| SCTRANI | LOOP+4~, LOOP+5*, LOOP+6*, LOOP+8, LOOP+18, LOOP+22 |
| SCX | ENV+5~, ENV+7*, ENV+9, POST2+22~, POST2+23*, POST2+24*, POST2+25*, POST2+26, LOOP+4~, LOOP+8* , LOOP+9, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LOOP+15, LOOP+16, MSG+2~, MSG+4*, MSG+5* , MSG+27, CHECK+5~, CHECK+13*, CHECK+19, CHECK+24, CHECK+26, CHECK+30, CHECK+32, SETUP+13~, SETUP+14* , SETUP+15*, SETUP+16 |
| SCXERR | MSG~, MSG+19 |
| SCXSITE | MSG+2~, MSG+3*, MSG+8, MSG+11, MSG+12 |
| SCZPCID | ZPC+2~, ZPC+3*, ZPC+6*, ZPC+7, ZPC+8 |
| TRANI | ZPC~, ZPC+4, ZPC+5, ZPC+6 |
| U | ENV+9, PROGCHK+2, POST2+24, POST2+25, MSG+4, MSG+5, MSG+8, SETUP+14, SETUP+15 |
| XMDUN | MSG+2~ |
| XMDUZ | MSG+2~, MSG+6* |
| XMSUB | MSG+2~, MSG+8* |
| XMTEXT | MSG+2~, MSG+6* |
| XMY | MSG+2~ |
| XMY( | MSG+6* |
| XMY("G.PCMM T | ESTING@DOMAIN.EXT" , MSG+7* |
| XMZ | MSG+2~ |
| XPDABORT | ENV+1*, ENV+2, ENV+3, ENV+12*, ENV+13!, PROGCHK~, PROGCHK+7*, PARMCHK~, PARMCHK+7* |
