Call Graph
RGI15PST ;Hines OI/GJC-POST-INIT FOR RG*1.0*15 ;01/03/01
Source file <RGI15PST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN1 | ; entry point to check the TREATING FACILITY LIST (TFL-391.91) file
; for the proper LAST TREATMENT DATE. This code is part of the post ; init for RG*1*15. |
|
| EN2(RGDFN) | ; determine the LAST TREATMENT DATE for a single
; patient called from our seeding process above. ; input: RGDFN - the dfn of the patient |
|
| KILL | ; kill and quit
|
|
| ENCDT(DFN,INPDT) | ; find the last patient check out date/time. 'ADFN'
; cross-reference accessed through DBIA: 2953 ; Input: DFN - ien of the patient (file 2) ; INPDT - date (if any) obtained from the DATE LAST TREATED ; (#.03) field on the TFL (#391.91) file. |
|
| ; Send a completion email message to the user who installed this patch.
; Show the number of patient records processed, elapsed time and the ; number of patient records processed per minute. |
| Name | Field # of Occurrence |
|---|---|
| $$S^%ZTLOAD | EN1+33 |
| EN^DDIOL | EN1+32 |
| FILE^DIE | EN1+43 |
| $$LOCICN^RGADT2 | EN2+4 |
| GETGEN^SDOE | ENCDT+12 |
| PARSE^SDOE | ENCDT+12 |
| FILE^VAFCTFU | EN2+14 |
| $$FMTE^XLFDT | EN1+13, EN1+18, EN1+39 |
| $$NOW^XLFDT | EN1+18, EN1+39, EN1+42 |
| ^XMD | EMAIL+17 |
| $$NEWCP^XPDUTL | RGI15PST+4, RGI15PST+10 |
| $$PARCP^XPDUTL | EN1+21, EN1+26 |
| $$UPCP^XPDUTL | EN1+29, EN1+36, EN1+37 |
| BMES^XPDUTL | EN1+15 |
| $$KSP^XUPARAM | EN1+19 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCN(391.91 - [#391.91] | EN2+11, EN2+12 |
| ^DPT("AICN" | EN1+25, EN1+27 |
| ^RGSITE(991.8 - [#991.8] | EN1+10 |
| ^SCE("ADFN" | ENCDT+9, ENCDT+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | ENCDT~, ENCDT+9, ENCDT+11 |
| DIFROM | EMAIL+3~ |
| DUZ | EMAIL+3 |
| INPDT | ENCDT~, ENCDT+9 |
| RGARY | EMAIL+3~ |
| RGARY(1 | EMAIL+6*, EMAIL+7*, EMAIL+8*, EMAIL+9*, EMAIL+10*, EMAIL+11*, EMAIL+12*, EMAIL+13*, EMAIL+14*, EMAIL+15* , EMAIL+16* |
| RGC | RGI15PST+3~, RGI15PST+4*, RGI15PST+10* |
| RGCNT | EN1+17*, EN1+30*, EN1+31, KILL+1!, EMAIL+13 |
| RGCNT(0 | EN1+17*, EN2+10*, EMAIL+15 |
| RGDATA | ENCDT+7!, ENCDT+12, ENCDT+14!, ENCDT+17! |
| RGDATE | EN2+13*, EN2+14, KILL+1! |
| RGDFN | EN1+26*, EN1+27*, EN1+28, EN1+29, EN1+37, EN2~, EN2+4, EN2+11, EN2+13, EN2+14 , KILL+1! |
| RGDLT | EN2+12*, EN2+13, EN2+14, KILL+1! |
| RGDT | EN1+10~*, EN1+11, EN1+13 |
| RGFDA | EN1+42! |
| RGFDA( | EN1+42* |
| RGFIN | EN1+39*, KILL+1!, EMAIL+10 |
| RGICN | EN1+21*, EN1+25*, EN1+27, EN1+36, EN2+4, KILL+1! |
| RGPARSE | KILL+1!, ENCDT+14! |
| RGPARSE( | ENCDT+13 |
| RGPURGE | ENCDT+7!, ENCDT+17! |
| RGS | EN1+29*, EN1+36*, EN1+37*, KILL+1! |
| RGSITE | EN1+19*, EN2+11, EN2+14, KILL+1! |
| RGSTART | EN1+18*, KILL+1!, EMAIL+9 |
| >> RGSUP | EN2+14 |
| RGTFL | EN2+11*, EN2+12, KILL+2! |
| RGTXT | EN1+12~, EN1+15 |
| RGTXT(1 | EN1+13* |
| RGTXT(2 | EN1+14* |
| RGX | ENCDT+7!, ENCDT+8*, ENCDT+9*, ENCDT+11, ENCDT+13, ENCDT+17! |
| RGX1 | ENCDT+7!, ENCDT+10*, ENCDT+11*, ENCDT+12, ENCDT+17! |
| RGX2 | ENCDT+7!, ENCDT+8*, ENCDT+9, ENCDT+11, ENCDT+13*, ENCDT+17! |
| RGX3 | ENCDT+7~, ENCDT+8*, ENCDT+13*, ENCDT+18 |
| RGXIT | EN1+17*, EN1+25, EN1+27, EN1+33*, EN1+34, KILL+2! |
| U | EN1+19*, EN2+12, EN2+14 |
| XMDUZ | EMAIL+3*, EMAIL+17! |
| XMSUB | EMAIL+5*, EMAIL+17! |
| XMTEXT | EMAIL+3*, EMAIL+17! |
| XMY | EMAIL+17! |
| XMY( | EMAIL+3* |
| XMY("G.MPIF E | XCEPTIONS" , EMAIL+4* |
| >> ZTQUEUED | EN1+9, EN1+32 |
| >> ZTREQ | EN1+9* |
| >> ZTSTOP | EN1+34*, EN1+41, EMAIL+16 |
