©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
DGPTAPP1 ;MTC/ALB - PTF Purge/Archive - Purge Continued ; 21 DEC 1992
Source file <DGPTAPP1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLOSEQ | ||
| CENSUS(PTF) | ;-- This function will delete the entries in the PTF Close
; Out file (#45.84), associated with the record PTF. |
|
| CLOSE(PTF) | ;-- This function will delete the entries in the PTF Close
; Out file (#45.84), associated with the record PTF. |
|
| RELQ | ||
| DELPTF(PTF) | ;-- This function will delete the entries in the PTF
; file (#45), associated with the record PTF. |
|
| DELPTFQ | ||
| REL(PTF) | ;-- This function will delete the entries in the PTF
; Release File (#45.83) Associated with the record PTF. |
|
| UPDATE(PTF) | ; This function will update the entry in the Patient Movement
; file (#405) cooresponding to the PTF record. The PTF record entry ; in field 16 will be deleted and the PTF PURGED STATUS field 26 ; will be set to 1. This field will be used to prevent re-creation ; of the PTF record from a past admission. |
|
| CENSUSQ | ||
| WARNING() | ; This function will display a warning to the user before the
; purge of the data will occur. A '1' will be returned if the purge ; should continue. ; OUTPUT : 1 - DO NOT CONTINUE ; 0 - OK |
|
| PURGE(TMP) | ;-- Purge entry point. This function will loop thru the
; PTF records found in the A/P template pointed to by TMP. ; Starting with the PTF Release file, PTF Close Out file, Census ; Work file and finally the PTF record in file #45. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | Classic Fileman Calls |
| ^DGPT - [#45] | Classic Fileman Calls |
| ^DGP(45.84 - [#45.84] | Classic Fileman Calls |
| ^DG(45.85 - [#45.85] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(45.85 - [#45.85] | CENSUS+5, CENSUS+6 |
| ^DGP(45.62 - [#45.62] | PURGE+8 |
| ^DGP(45.83 - [#45.83] | REL+6, REL+7 |
| ^DGP(45.84 - [#45.84] | CLOSE+5 |
| ^DGPM("APTF" | UPDATE+6 |
| ^DGPT - [#45] | DELPTF+5 |
| ^DIBT( | PURGE+9 |
| Name | Line Occurrences |
|---|---|
| CENSUS | PURGE+10 |
| CENSUSQ | CENSUS+5 |
| CLOSE | PURGE+10 |
| CLOSEQ | CLOSE+5 |
| DELPTF | PURGE+10 |
| DELPTFQ | DELPTF+5 |
| REL | PURGE+10 |
| RELQ | REL+6 |
| UPDATE | PURGE+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | REL+8*, RELQ!, CLOSE+6*, CLOSEQ!, CENSUS+6*, CENSUSQ!, DELPTF+6*, DELPTFQ!, UPDATE+6*, UPDATE+8! |
| DA(1 | REL+8* |
| DIE | UPDATE+7*, UPDATE+8! |
| DIK | REL+8*, RELQ!, CLOSE+6*, CLOSEQ!, CENSUS+6*, CENSUSQ!, DELPTF+6*, DELPTFQ! |
| DR | UPDATE+7*, UPDATE+8! |
| FLAG | WARNING+5~, WARNING+6*, WARNING+9 |
| I | REL+5~, REL+7*, REL+8 |
| PTF | PURGE+7~, PURGE+9*, PURGE+10, REL~, REL+6, REL+7, REL+8, CLOSE~, CLOSE+5, CLOSE+6 , CENSUS~, CENSUS+5, CENSUS+6, DELPTF~, DELPTF+5, DELPTF+6, UPDATE~, UPDATE+6 |
| REC | PURGE+7~, PURGE+8*, PURGE+9 |
| TMP | PURGE~, PURGE+8 |
| U | PURGE+8 |