©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
DGV53PT2 ;MTC/ALB - Provider Conversion Continued ; 21 JAN 93
Source file <DGV53PT2.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | (ADDPC,COMFILE,DONE,NEWFILE,WRERROR)^DGV53PT1 (CFL,INITLOOP,TOTVAAMT)^DGYPREG ENDLOOP^DGYPREG3 (DISPZIP,MAKEZIP4)^DGYPREG5 |
| VA Fileman | 2 | NOW^%DTC ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OTHER(DFN) | ;-- This routines is used to call other Patient File conversion
; routines. ; INPUT : DFN - Current Patient being processed |
|
| CON2 | ;-- This routine will perform the conversion to file #200 for the
; Patient file (#2) |
|
| DPT104(RECNUM,PROV) | ;-- process DPT '.104' node
; INPUT : RECNUM - Record Number to process ; PROV - Current Provider Pointer |
|
| OTHPST | ;-- This routine will perform any post Patient File loop changes that
; other packages require. |
|
| CON2Q | ;-- exit
|
|
| DPT1041(RECNUM,PROV) | ;-- process DPT '.1041' node
; INPUT : RECNUM - Record Number to process ; PROV - Current Provider Pointer |
|
| OTHINIT | ;-- This routine will init other changes for the Patient file outside
; the Provider conversion. |
|
| REST2(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 2 |
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | REST2+5 |
| ADDPC^DGV53PT1 | CON2+7 |
| COMFILE^DGV53PT1 | CON2+33 |
| DONE^DGV53PT1 | CON2+33 |
| NEWFILE^DGV53PT1 | CON2+13 |
| WRERROR^DGV53PT1 | DPT104+6, DPT1041+6 |
| CFL^DGYPREG | OTHER+6 |
| INITLOOP^DGYPREG | OTHINIT+4 |
| TOTVAAMT^DGYPREG | OTHER+5 |
| ENDLOOP^DGYPREG3 | OTHPST+4 |
| DISPZIP^DGYPREG5 | OTHER+8 |
| MAKEZIP4^DGYPREG5 | OTHER+7 |
| ^DIE | DPT104+7, DPT1041+7 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(43 - [#43] | CON2+9, CON2+21*, CON2+27*, REST2+5*, REST2+6 |
| ^DIC(16 - [#16] | DPT104+5, DPT104+6, DPT1041+5, DPT1041+6 |
| ^DPT - [#2] | CON2+17, CON2+19, CON2+25, REST2+9, REST2+12 |
| Name | Line Occurrences |
|---|---|
| CON2Q | CON2+11 |
| DPT104 | CON2+23, REST2+10 |
| DPT1041 | CON2+29, REST2+13 |
| OTHER | CON2+31 |
| OTHINIT | CON2+5 |
| OTHPST | CON2+35 |
| REST2 | CON2+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | REST2+5 |
| >> CURPT | REST2+6* |
| DA | DPT104+7*!, DPT1041+7*! |
| DFN | OTHER~, OTHER+5, OTHER+6, OTHER+7, OTHER+8 |
| DIE | DPT104+7*!, DPT1041+7*! |
| DR | DPT104+7*!, DPT1041+7*! |
| MULT | CON2+3~, REST2+6* |
| NODE | CON2+3~, REST2+6*, REST2+10, REST2+13 |
| OK | CON2+3~, CON2+15*, CON2+33, DPT104+6*, DPT1041+6* |
| PREC | CON2+3~, CON2+9*, CON2+11, CON2+15, REST2~, REST2+5, REST2+6, REST2+10, REST2+13 |
| PROV | CON2+3~, CON2+19*, CON2+21, CON2+23, CON2+25*, CON2+27, CON2+29, DPT104~, DPT104+5, DPT104+6 , DPT1041~, DPT1041+5, DPT1041+6 |
| PSAV | CON2+3~, CON2+9*, CON2+15, CON2+21, CON2+27, CON2+33, REST2~, REST2+5, REST2+6 |
| RECNUM | CON2+3~, CON2+17*, CON2+19, CON2+21, CON2+23, CON2+25, CON2+27, CON2+29, CON2+31, DPT104~ , DPT104+6, DPT104+7, DPT1041~, DPT1041+6, DPT1041+7, REST2+6*, REST2+7, REST2+9, REST2+10, REST2+12 , REST2+13 |
| SEQ | CON2+3~, REST2+6* |
| >> STIME | CON2+21, CON2+27, REST2+6* |
| TREC | CON2+3~, CON2+17*, CON2+21, CON2+27, CON2+33, REST2+6* |
| U | CON2+11, CON2+19, CON2+21, CON2+25, CON2+27, DPT104+6, DPT1041+6, REST2+5, REST2+6, REST2+9 , REST2+10, REST2+12, REST2+13 |
| X | DPT104+4~, DPT104+5*, DPT104+6, DPT104+7, DPT1041+4~, DPT1041+5*, DPT1041+6, DPT1041+7, REST2+9*, REST2+10 , REST2+12*, REST2+13 |
| Y | DPT104+4~, DPT104+6*, DPT1041+4~, DPT1041+6* |