©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBDFPRG1 ;ALB/AAS - AICS PURGE UTILITY ; 4-OCT-95
Source file <IBDFPRG1.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 1 | MANUAL^IBDFPRG |
| VA Fileman | 1 | ^DIK |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 1 | IBDFPRG |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PURGEL(IBLDT) | ; --
; -- Purge AICS Error Log older created prior to ibdldt ; Input : ibldt := only purge error created prior to this date |
|
| STATQ | ||
| STATCHK(ENTRY,IBHOW) | ; -- Function
; -- determine if entry in 357.96 can be deleted ; Input : Entry := internal number of entry in 357.96 ; ibhow := 0,1,2, to delete none, complete, or all ; Output: Okay := 1=okay to delete, 0=not okay |
|
| PURGELQ | ||
| DELQ | ||
| PURGFTQ | ||
| DEL(FILE,DA) | ; -- Function
; -- delete one entry ; Input : File := internal file number of file or global root ; da := internal number of entry, If more than DA ; needs to be defined then pass da array by ; reference ; Output: 1 := succeded, 0 := failed |
|
| PURGFT(IBLDT,IBHOW) | ; -- Procedure
; -- purge entries from form tracking file (357.96) ; Input : ibldt := only purge records with an appointment ; date older than this date ; ibhow := 0=no records, 1=complete, 2=all ; Output: ibcnt6 := number of entries in 357.96 deleted |
|
| PURGFDQ | ||
| PURGFD(IBLDT) | ; -- Procedure
; -- purge entires in Form Definition file marked for deletion ; that were marked before ibldt and no incomplete entries in ; form tracking exist |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBD(357.95 - [#357.95] | PURGFD+14, PURGFD+16, PURGFD+22 |
| ^IBD(357.96 - [#357.96] | PURGFD+21, PURGFT+14, PURGFT+16, STATCHK+10, STATCHK+13, STATCHK+16 |
| ^IBD(359.2 - [#359.2] | PURGFD+23 |
| ^IBD(359.3 - [#359.3] | PURGEL+8, PURGEL+10, PURGEL+11 |
| Name | Line Occurrences |
|---|---|
| $$DEL | PURGFD+22, PURGFD+23, PURGFT+17, PURGEL+11 |
| $$STATCHK | PURGFT+17 |
| DELQ | DEL+10 |
| PURGFDQ | PURGFD+12 |
| PURGFTQ | PURGFT+9, PURGFT+11 |
| STATQ | STATCHK+9, STATCHK+10, STATCHK+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DEL~, DEL+10, DEL+13 |
| >> DIK | DEL+11*, DEL+13 |
| ENTRY | STATCHK~, STATCHK+10, STATCHK+13, STATCHK+16 |
| FILE | DEL~, DEL+10, DEL+11 |
| >> IBCNT2 | PURGFD+11*, PURGFD+23* |
| >> IBCNT5 | PURGFD+11*, PURGFD+22* |
| >> IBCNT6 | PURGFT+8*, PURGFT+17* |
| >> IBCNT7 | PURGEL+7*, PURGEL+11* |
| IBHOW | PURGFT~, PURGFT+10*, PURGFT+11, PURGFT+17, STATCHK~, STATCHK+8*, STATCHK+9, STATCHK+13 |
| IBI | PURGFD+10~, PURGFD+13*, PURGFD+14*, PURGFD+16, PURGFT+7~, PURGFT+13*, PURGFT+14*, PURGFT+16, PURGEL+6~, PURGEL+7* , PURGEL+8*, PURGEL+10 |
| IBJ | PURGFD+10~, PURGFD+15*, PURGFD+16*, PURGFD+21, PURGFD+22, PURGFD+23, PURGFT+7~, PURGFT+15*, PURGFT+16*, PURGFT+17 , PURGEL+6~, PURGEL+9*, PURGEL+10*, PURGEL+11 |
| IBLDT | PURGFD~, PURGFD+12, PURGFD+14, PURGFT~, PURGFT+9, PURGFT+14, PURGEL~, PURGEL+8 |
| IBSTAT | PURGFD+10~, PURGFT+7~ |
| OKAY | STATCHK+6~, STATCHK+7*, STATCHK+13*, STATCHK+17*, STATQ |
| STATUS | STATCHK+6~, STATCHK+16*, STATCHK+17 |
| SUCCESS | DEL+8~, DEL+9*, DEL+12*, DELQ |
| X | PURGFD+10~, PURGFD+22*, PURGFD+23*, PURGFT+7~, PURGFT+17*, PURGEL+11* |
| Y | PURGFD+10~, PURGFT+7~ |
| >> ZTQUEUED | DEL+13 |