©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
DG53654P ;ALB/BAJ - Synchronize the PERIOD OF SERVICE file (#21);09/01/2005
Source file <DG53654P.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 1 | (BMES,MES)^XPDUTL |
| Registration | 1 | $$UPD^DGENDBS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOOKUP(PBNAME) | ; Return IEN for POS File #21, using the "B" x-ref
|
|
| SETUP | ; setup message and data arrays
; PBNAME = Data Index pointer in "B" x-ref ; POS = Data Index (D0 value) ; PFNUM = Field number ; PBDATA = New data to change/insert (per table in DATA tag) ; ; Arrays created ; MSGARR array contains a pointer to the index record ; MSGARR(POS) = PBNAME ; ; XDATA array contains the items to change ; XDATA(POS,PFNUM) = PDATA ; |
|
| EN | ; Driver - Initialize variables and populate file
|
|
| DATA | ; POS values to lookup *** Data table, DO NOT ADJUST ***
|
|
| UPDATE | ; update records
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(21 - [#21] | LOOKUP+2 |
| ^TMP($J | EN+17!, EN+26 |
| Name | Line Occurrences |
|---|---|
| $$LOOKUP | SETUP+17 |
| SETUP | EN+20 |
| UPDATE | EN+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATA | UPDATE+1~, UPDATE+6*, UPDATE+7, UPDATE+11! |
| DGENDA | UPDATE+1~ |
| ERR | UPDATE+1~, UPDATE+3*, UPDATE+7, UPDATE+10* |
| FILE | UPDATE+1~, UPDATE+3*, UPDATE+7 |
| K | SETUP+14~, SETUP+15* |
| MSGARR | EN+14~ |
| MSGARR( | UPDATE+5, UPDATE+9, SETUP+22* |
| PBNAME | SETUP+14~, SETUP+16*, SETUP+17, SETUP+19, SETUP+22, LOOKUP~, LOOKUP+2 |
| PDATA | SETUP+14~, SETUP+21*, SETUP+23 |
| PFNUM | SETUP+14~, SETUP+20*, SETUP+23 |
| POS | UPDATE+1~, UPDATE+3*, UPDATE+4*, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+9, SETUP+14~, SETUP+17*, SETUP+22 , SETUP+23 |
| RETVAL | LOOKUP+1~, LOOKUP+2*, LOOKUP+3, LOOKUP+4 |
| X | SETUP+14~, SETUP+15*, SETUP+16, SETUP+20, SETUP+21 |
| XDATA | EN+14~ |
| XDATA( | UPDATE+4, UPDATE+6, SETUP+23* |
| Name | Field # of Occurrence |
|---|---|
| $T(DATA+K | SETUP+15 |