©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
DGV53PT5 ;MTC/ALB - Provider Conversion Continued ; 21 JAN 93
Source file <DGV53PT5.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | NOW^%DTC ^DIE |
| Registration | 1 | (ADDPC,COMFILE,DONE,NEWFILE,WRERROR)^DGV53PT1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CON411 | ;-- This routine will perform the conversion to file #200 for the
; Scheduled Admission File (#41.1) |
|
| REST44(PREC,PSAV) | ;-- This tag will re-process the entry incase the conversion
; needs to be re-started. ; INPUT : PREC - 0 Node of entry in MAS Parameter File for file 44 |
|
| SC16(RECNUM,PROV) | ;-- process SC '16' field of the 0 node
; INPUT : RECNUM - Record Number to process ; PROV - Current Provider Pointer |
|
| CON44Q | ;-- exit
|
|
| REST411(PREC,PSAV) | ;-- This tag will re-process the entry incase the conversion
; needs to be re-started. ; INPUT : PREC - 0 Node of entry in MAS Parameter File for file 41.1 |
|
| CON411Q | ;-- exit
|
|
| CON44 | ;-- This routine will perform the conversion to file #200 for the
; Hospital Location File (#44) |
|
| DGS411(RECNUM,PROV) | ;-- process DGS '5' field of the 0 node
; INPUT : RECNUM - Record Number to process ; PROV - Current Provider Pointer |
| FileNo | Call Tags |
|---|---|
| ^DGS(41.1 - [#41.1] | Classic Fileman Calls |
| ^SC - [#44] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(43 - [#43] | CON411+7, CON411+19*, REST411+5*, REST411+6, CON44+7, CON44+17*, REST44+5*, REST44+6 |
| ^DGS(41.1 - [#41.1] | CON411+15, CON411+17, REST411+9 |
| ^DIC(16 - [#16] | DGS411+5, DGS411+6, SC16+5, SC16+6 |
| ^SC - [#44] | CON44+13, CON44+15, REST44+9 |
| Name | Line Occurrences |
|---|---|
| CON411Q | CON411+9 |
| CON44Q | CON44+9 |
| DGS411 | CON411+21, REST411+10 |
| REST411 | CON411+13 |
| REST44 | CON44+11 |
| SC16 | CON44+19, REST44+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | REST411+5, REST44+5 |
| >> CURPT | REST411+6*, REST44+6* |
| DA | DGS411+7*!, SC16+7*! |
| DIE | DGS411+7*!, SC16+7*! |
| DR | DGS411+7*!, SC16+7*! |
| MULT | CON411+3~, REST411+6*, CON44+3~, REST44+6* |
| NODE | CON411+3~, REST411+6*, REST411+10, CON44+3~, REST44+6*, REST44+10 |
| OK | CON411+3~, CON411+13*, CON411+23, DGS411+6*, SC16+6* |
| PREC | CON411+3~, CON411+7*, CON411+9, CON411+13, REST411~, REST411+5, REST411+6, REST411+10, CON44+3~, CON44+7* , CON44+9, CON44+11, REST44~, REST44+5, REST44+6, REST44+10 |
| PROV | CON411+3~, CON411+17*, CON411+19, CON411+21, DGS411~, DGS411+5, DGS411+6, CON44+3~, CON44+15*, CON44+17 , CON44+19, SC16~, SC16+5, SC16+6 |
| PSAV | CON411+3~, CON411+7*, CON411+13, CON411+19, CON411+23, REST411~, REST411+5, REST411+6, CON44+3~, CON44+7* , CON44+11, CON44+17, CON44+21, REST44~, REST44+5, REST44+6 |
| RECNUM | CON411+3~, CON411+15*, CON411+17, CON411+19, CON411+21, DGS411~, DGS411+6, DGS411+7, REST411+6*, REST411+7 , REST411+9, REST411+10, CON44+3~, CON44+13*, CON44+15, CON44+17, CON44+19, SC16~, SC16+6, SC16+7 , REST44+6*, REST44+7, REST44+9, REST44+10 |
| SEQ | CON411+3~, REST411+6*, CON44+3~, REST44+6* |
| STIME | CON411+3~, CON411+19, REST411+6*, CON44+3~, CON44+17, REST44+6* |
| TREC | CON411+3~, CON411+15*, CON411+19, CON411+23, REST411+6*, CON44+3~, CON44+13*, CON44+17, CON44+21, REST44+6* |
| U | CON411+9, CON411+17, CON411+19, DGS411+6, REST411+5, REST411+6, REST411+9, REST411+10, CON44+9, CON44+15 , CON44+17, SC16+6, REST44+5, REST44+6, REST44+9, REST44+10 |
| X | DGS411+4~, DGS411+5*, DGS411+6, DGS411+7, REST411+9*, REST411+10, SC16+4~, SC16+5*, SC16+6, SC16+7 , REST44+9*, REST44+10 |
| Y | DGS411+4~, DGS411+6*, SC16+4~, SC16+6* |