©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
INTENV1 ;bar; 26 Feb 97 18:07; Purge modules for GIS Environment Mgmt
Source file <INTENV1.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Generic Interface System | 2 | ($$SRVRHNG,$$VER)^INHB $$DIC^INHSYS05 |
| Kernel | 2 | $$UPCASE^%ZTF $$CDATH2F^%ZTFDT |
| VA Fileman | 1 | ^DIK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TTCONV(INTT,INTTA) | ; take a TT filter value and create an array of iens
; input: INTT = string to match TTs, can use wildcards (*) ; and minus (-) to remove selections ; INTTA = array of iens and names passed by reference ; output: returns number selected or deselected |
|
| SHUT | ; shutdown all GIS, code copied from STOPALL^INHB, removed writes
|
|
| TPURGE(INPURGE,INTT) | ; purge transactions from UIF based on criteria
; input: INPURGE = amount of time to keep data, required ; format: nL where n = number and L is a letter ; D = days, H = hours, M = minutes ; INTT = Transaction Type filter value (text with wild cards) ; example: "HL TEST*", optional ; can also pass in the array already built |
|
| PDATE(X,C) | ; calculate date/time to purge to based on user input
; input: X format: nl where n = number and l is a letter ; D = days, H = hours, M = minutes ; C = 0 return in FM format (default), 1 = return in ascii-$H |
|
| REMSCH(PRIO,DTTM,DEST,DA) | ; remove entries from Output and Destination queues
; input: PRIO = priority, DTTM = $H, DEST = dest ien, DA = UIF ien |
|
| FPURGE(INPURGE,INTT) | ; remove formatter tasks
; input: INPURGE = amount of data to keep, required ; format: nL where n = number and L is a letter ; D = days, H = hours, M = minutes ; INTT = list of TT iens to search for and remove from ; formatter queue |
|
| EPURGE(INPURGE,INCON) | ; purge GIS errors
; input: INPURGE = amount of data to keep, required ; format: nL where n = number and L is a letter ; D = days, H = hours, M = minutes ; INCON = flag to consolidate remaining errors 1 = YES, ; 0 = NO, default is no |
|
| CLEAN | ; clear all dynamic GIS files and queues
; UIF, Error File, Formatter, Ouput Controller, Destination ; STOPALL^INHB should be called first, but can be run in uptime |
|
| TDPURGE(INPURGE,INDEST) | ; purge transactions from UIF based on criteria
; input: INPURGE = amount of time to keep data, required ; format: nL where n = number and L is a letter ; D = days, H = hours, M = minutes ; INDEST = DESTINATION ien |
|
| DPURGE | ; remove destination entries with no UIF
; input: INTT = list of TT iens to search for and remove from ; formatter queue |
| FileNo | Call Tags |
|---|---|
| ^INRHT - [#4000] | Classic Fileman Calls |
| ^INLHFTSK - [#4000.1] | Classic Fileman Calls |
| ^INTHU - [#4001] | Classic Fileman Calls |
| ^INTHER - [#4003] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^INLHDEST( | REMSCH+3! |
| ^INLHFTSK - [#4000.1] | FPURGE+10, FPURGE+11 |
| ^INLHSCH | REMSCH+3! |
| ^INRHB("RUN" | SHUT+3! |
| ^INRHT("B" | TTCONV+19, TTCONV+21 |
| ^INTHER - [#4003] | EPURGE+10, EPURGE+11!, EPURGE+13, EPURGE+16 |
| ^INTHPC - [#4004] | SHUT+5 |
| ^INTHPC("ACT" | SHUT+5 |
| ^INTHU - [#4001] | TPURGE+10, TPURGE+11!, TPURGE+12, TDPURGE+10!, TDPURGE+11, DPURGE+6! |
| ^INTHU("MESSID" | CLEAN+4, CLEAN+9* |
| ^UTILITY($J | EPURGE+8!, EPURGE+18, EPURGE+19*, EPURGE+21! |
| Name | Line Occurrences |
|---|---|
| $$PDATE | TPURGE+8, TDPURGE+7, EPURGE+8, FPURGE+7 |
| $$TTCONV | TPURGE+9, FPURGE+8 |
| FPURGE | TPURGE+18 |
| REMSCH | TPURGE+14, TDPURGE+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | TPURGE+9*, FPURGE+8* |
| C | PDATE~, PDATE+11 |
| D | PDATE+5~, PDATE+7*, PDATE+8 |
| DA | TPURGE+7~, TPURGE+15*, TDPURGE+5~, TDPURGE+14*, EPURGE+7~, EPURGE+20*, FPURGE+6~, FPURGE+13*, DPURGE+3~, REMSCH~ , REMSCH+2, REMSCH+3 |
| DEST | REMSCH~, REMSCH+2, REMSCH+3 |
| DIC | TTCONV+9~*, TTCONV+10 |
| DIC(0 | TTCONV+9*, TTCONV+10 |
| DIK | TPURGE+7~, TPURGE+10*, TDPURGE+5~, TDPURGE+8*, EPURGE+7~, EPURGE+9*, FPURGE+6~, FPURGE+9*, DPURGE+3~, DPURGE+4* |
| DTTM | REMSCH~, REMSCH+2, REMSCH+3 |
| F | TTCONV+13~, TTCONV+15*, TTCONV+16*, TTCONV+17* |
| FILE | CLEAN+3~, CLEAN+5*, CLEAN+6, CLEAN+7, CLEAN+8 |
| H | FPURGE+6~, PDATE+5~, PDATE+7*, PDATE+9 |
| H1 | PDATE+5~, PDATE+7*, PDATE+8*, PDATE+10*, PDATE+11, PDATE+12 |
| H2 | PDATE+5~, PDATE+7*, PDATE+9*, PDATE+10*, PDATE+11, PDATE+12 |
| >> I | TTCONV+15*, TTCONV+16 |
| INC | TPURGE+7~, TPURGE+10*, TPURGE+16*, TDPURGE+5~, TDPURGE+8*, TDPURGE+13*, EPURGE+7~, EPURGE+9*, EPURGE+20*, DPURGE+4* |
| INCNT | TTCONV+6~, TTCONV+8*, TTCONV+11*, TTCONV+12*, TTCONV+18*, TTCONV+22*, TTCONV+23*, TTCONV+24 |
| INCON | EPURGE~, EPURGE+9*, EPURGE+14 |
| INCONT | EPURGE+7~, EPURGE+16*, EPURGE+17, EPURGE+18, EPURGE+19 |
| INDA | SHUT+1~, SHUT+5* |
| INDEST | TDPURGE~, TDPURGE+8, TDPURGE+9 |
| INDIR | EPURGE+7~ |
| INP | TPURGE+7~, TPURGE+8*, TPURGE+18 |
| INPURGE | TPURGE~, TPURGE+8*, TPURGE+12, TDPURGE~, TDPURGE+7*, TDPURGE+11, EPURGE~, EPURGE+8*, EPURGE+13, FPURGE~ , FPURGE+7*, FPURGE+11 |
| INQ | TDPURGE+5~, TDPURGE+8*, TDPURGE+9*, TDPURGE+10, DPURGE+4*, DPURGE+5*, DPURGE+6 |
| INREM | TTCONV+6~ |
| >> INSEL | TTCONV+7*, TTCONV+11, TTCONV+22 |
| INSELECT | TTCONV+6~ |
| INTT | TPURGE~, TPURGE+9, TPURGE+13, TPURGE+18, FPURGE~, FPURGE+8, FPURGE+12, TTCONV~, TTCONV+7*, TTCONV+8 , TTCONV+9, TTCONV+15 |
| INTT( | TPURGE+13, FPURGE+12 |
| INTTA | TTCONV~ |
| INTTA( | TTCONV+11*, TTCONV+12!, TTCONV+22*, TTCONV+23! |
| INX | TPURGE+7~, TPURGE+10*, TPURGE+11, TPURGE+12, TPURGE+14, TPURGE+15, TDPURGE+5~, TDPURGE+9*, TDPURGE+10, TDPURGE+11 , TDPURGE+12, TDPURGE+14, EPURGE+7~, EPURGE+9*, EPURGE+10*, EPURGE+11, EPURGE+13, EPURGE+16, EPURGE+20, FPURGE+6~ , FPURGE+9*, FPURGE+10*, FPURGE+11, FPURGE+13, DPURGE+3~, DPURGE+5*, DPURGE+6 |
| INX0 | TPURGE+7~, TPURGE+12*, TPURGE+13, TPURGE+14, TDPURGE+5~, TDPURGE+11*, TDPURGE+12, EPURGE+7~, EPURGE+13*, EPURGE+16 , FPURGE+6~, FPURGE+11*, FPURGE+12 |
| INX01 | DPURGE+3~ |
| INXP | EPURGE+7~, EPURGE+13*, EPURGE+14, EPURGE+18*, EPURGE+20 |
| L | TTCONV+13~, TTCONV+15*, TTCONV+16 |
| M | PDATE+5~, PDATE+7*, PDATE+9 |
| MESSID | CLEAN+3~, CLEAN+4*, CLEAN+9 |
| N | TTCONV+13~, TTCONV+18*, TTCONV+19*, TTCONV+21, TTCONV+22 |
| PRIO | REMSCH~, REMSCH+2, REMSCH+3 |
| T | PDATE+5~, PDATE+6*, PDATE+7 |
| U | TPURGE+12, TPURGE+13, TPURGE+14, TDPURGE+11, TDPURGE+12, EPURGE+13, EPURGE+16, FPURGE+11, FPURGE+12, TTCONV+11 , SHUT+5 |
| X | TTCONV+9*, TTCONV+10, TTCONV+13~, TTCONV+15*, TTCONV+16, TTCONV+18!*, TTCONV+20, CLEAN+3~, CLEAN+7*, SHUT+1~ , SHUT+3*, SHUT+5*, PDATE~, PDATE+6, PDATE+7 |
| Y | TTCONV+10*, TTCONV+11, TTCONV+12, TTCONV+13~*, TTCONV+16*, TTCONV+17*, TTCONV+18, TTCONV+21*, TTCONV+22, TTCONV+23 |
| >> ZTSK | TDPURGE+6* |