©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
DGV53PT6 ;ALB/MTC - MAS v5.3 Post Init Routine ; 07 JAN 93
Source file <DGV53PT6.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | NOW^%DTC ^DIE |
| Registration | 1 | (ADDPC,COMFILE,DONE,NEWFILE,WRERROR)^DGV53PT1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CON45 | ;-- This routine will perform the conversion to file #200 for the
; PTF file (#45) |
|
| CON45Q | ;
|
|
| PTF70(RECNUM,PROV) | ;-- process PTF '70' node
; INPUT : RECNUM - PTF Record Number to process ; PROV - Current Provider Pointer |
|
| PTFMP(RECNUM,SEQ,PROV) | ;-- process PTF '501' multiple
; INPUT :RENUM - PTF Record Number to process ; SEQ - Sequence Number in <501> multiple ; PROV - Current Provider Pointer |
|
| REST45(PREC,PSAV) | ;-- This tag will re-process the PTF entry incase the conversion
; needs to be re-started. ; INPUT : PREC - 0 Node of entry in MAS Parameter File for file 45 ; PSAV - IFN of the entry in file 43 |
| FileNo | Call Tags |
|---|---|
| ^DGPT - [#45] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(43 - [#43] | CON45+7, CON45+19*, CON45+27*, REST45+5*, REST45+6, REST45+18* |
| ^DGPT - [#45] | CON45+15, CON45+17, CON45+23, CON45+25, REST45+9, REST45+12, REST45+14, REST45+16 |
| ^DIC(16 - [#16] | PTF70+5, PTF70+6, PTFMP+6, PTFMP+7 |
| Name | Line Occurrences |
|---|---|
| CON45Q | CON45+9 |
| PTF70 | CON45+21, REST45+10 |
| PTFMP | CON45+28, REST45+13, REST45+19 |
| REST45 | CON45+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | REST45+5 |
| >> CURPT | REST45+6* |
| DA | PTF70+7*!, PTFMP+8*! |
| DA(1 | PTFMP+8* |
| DIE | PTF70+7*!, PTFMP+8*! |
| DR | PTF70+7*!, PTFMP+8*! |
| MULT | CON45+3~, REST45+6*, REST45+10 |
| NODE | CON45+3~, REST45+6*, REST45+10 |
| OK | CON45+3~, CON45+13*, CON45+30, PTF70+6*, PTFMP+7* |
| PREC | CON45+3~, CON45+7*, CON45+9, CON45+13, REST45~, REST45+5, REST45+6, REST45+10, REST45+13 |
| PROV | CON45+3~, CON45+17*, CON45+19, CON45+21, CON45+25*, CON45+27, CON45+28, PTF70~, PTF70+5, PTF70+6 , PTFMP~, PTFMP+6, PTFMP+7 |
| PSAV | CON45+3~, CON45+7*, CON45+13, CON45+19, CON45+27, CON45+30, REST45~, REST45+5, REST45+6, REST45+18 |
| RECNUM | CON45+3~, CON45+15*, CON45+17, CON45+19, CON45+21, CON45+23, CON45+25, CON45+27, CON45+28, PTF70~ , PTF70+6, PTF70+7, PTFMP~, PTFMP+7, PTFMP+8, REST45+6*, REST45+7, REST45+9, REST45+10, REST45+12 , REST45+14, REST45+16, REST45+18, REST45+19 |
| >> RENUM | REST45+13 |
| SEQ | CON45+3~, CON45+23*, CON45+25, CON45+27, CON45+28, PTFMP~, PTFMP+7, PTFMP+8, REST45+6*, REST45+7 , REST45+10, REST45+12, REST45+13, REST45+14*, REST45+16, REST45+18, REST45+19 |
| >> STIME | CON45+19, CON45+27, REST45+6*, REST45+18 |
| TREC | CON45+3~, CON45+15*, CON45+19, CON45+27, CON45+30, REST45+6*, REST45+18 |
| U | CON45+9, CON45+17, CON45+19, CON45+25, CON45+27, PTF70+6, PTFMP+7, REST45+5, REST45+6, REST45+9 , REST45+10, REST45+12, REST45+13, REST45+16, REST45+18 |
| X | PTF70+4~, PTF70+5*, PTF70+6, PTF70+7, PTFMP+5~, PTFMP+6*, PTFMP+7, PTFMP+8, REST45+9*, REST45+10 , REST45+12*, REST45+13, REST45+16*, REST45+18, REST45+19 |
| Y | PTF70+4~, PTF70+6*, PTFMP+5~, PTFMP+7* |