AGED ; IHS/ASDS/EFG - EDITOR MAIN ROUTINE ; MAR 19, 2010
Source file <AGED.m>
Package | Total | Call Graph |
---|---|---|
IHS Patient Registration | 4 | (CHKNPP,CHKRHI)^AG UPDATE1^AGED ($$DTEST,PROGVIEW)^AGUTILS $$S^AGVDF |
VA Fileman | 3 | DD^%DT NOW^%DTC ^DIE |
IHS VA Utilities | 1 | ^XBNEW |
Kernel | 1 | HOME^%ZIS |
Name | Comments | DBIA/ICR reference |
---|---|---|
ZMFI | ;
|
|
10 | ;;30;Other Patient Data
|
|
UPDATE1(AGSITE,AGZDFN,AGPTPG,AGGDA) | ||
SCRN | ;;Label DY^Label DX^File Number^Field;;Data Format for drawing EDIT screens.
|
|
11 | ;;0;
|
|
UPDATE | ;PEP - CALLED FROM PCC TO UPDATE AGPATCH FILE
|
|
1 | ;;0;
|
|
3 | ;;24;Emergency Contact/Next of Kin
|
|
2 | ;;21;Religion/Tribal Data/Employment
|
|
5 | ;;0;
|
|
XBDIE | ;NESTED DIE
|
|
7 | ;;26;Death Info/Other Names
|
|
6 | ;;28;Veteran's Information
|
|
9 | ;;23;CHS Eligibility & Document Summary
|
|
END | ;
|
|
8 | ;;0;
|
|
BICFLDS | ;;35;BIC Fields
|
|
4 | ;;30;Medical Sequencing
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUPNPAT - [#9000001] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AGPATCH( | XBDIE+1*, ZMFI+3* |
^AUPNPAT - [#9000001] | AGED+25, ZMFI+7* |
^AUTTSITE(1 | ZMFI+2 |
^DIC(4 - [#4] | AGED+9 |
^DPT - [#2] | AGED+13 |
^XTMP("AGHL7" | ZMFI+18* |
^XTMP("AGHL7AG" | ZMFI+19* |
Name | Line Occurrences |
---|---|
END | AGED+28, UPDATE+1, UPDATE1+2, ZMFI+21 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | UPDATE1+4 |
>> AG("ED" | END+1! |
>> AG("NOUPDATE" | UPDATE+1 |
>> AG("PG" | AGED+8, AGED+23, AGED+28, AGED+29, AGED+31, AGED+34 |
>> AGCHRT | AGED+22 |
AGDTS | END+1!, UPDATE1+4*, XBDIE+1, ZMFI+3 |
>> AGELSTS | AGED+25*, AGED+26 |
AGGDA | UPDATE1~, ZMFI+3 |
>> AGLINE("-" | AGED+10* |
>> AGLINE("EQ" | AGED+11*, AGED+12, AGED+27 |
>> AGPAT | AGED+13*, AGED+15, AGED+17, AGED+19 |
AGPTPG | UPDATE1~, UPDATE1+2!, ZMFI+2, ZMFI+3, ZMFI+4!, ZMFI+20! |
>> AGSEENLY | AGED+6 |
AGSITE | UPDATE1~, XBDIE+1, ZMFI+3 |
>> AGUPDT | ZMFI+16* |
AGZDFN | UPDATE1~, UPDATE1+2!, XBDIE+1, ZMFI+3, ZMFI+7, ZMFI+8, ZMFI+12, ZMFI+20! |
>> APMFVAR | UPDATE1+1 |
>> CATHD | AGED+31, AGED+34, AGED+35 |
>> DA | ZMFI+8*, ZMFI+12*, ZMFI+18, ZMFI+19 |
>> DFN | AGED+13, AGED+21, AGED+25, UPDATE+2 |
DIE | END+1!, ZMFI+5*, ZMFI+10* |
>> DIU(0 | UPDATE1+1 |
DR | END+1!, ZMFI+6*, ZMFI+11* |
DT | ZMFI+14 |
DUZ | AGED+5, UPDATE1+1, ZMFI+7 |
DUZ(2 | AGED+9, UPDATE+2, ZMFI+18, ZMFI+19 |
IOF | AGED+3 |
>> RHIFLAG | AGED+15, AGED+16, AGED+17, AGED+18, AGED+19 |
>> SEQHD | AGED+8 |
U | AGED+9, AGED+13, AGED+25, ZMFI+2, ZMFI+7 |
>> Y | ZMFI+14*, ZMFI+16 |
Name | Field # of Occurrence |
---|---|
$T(@AG(1) | AGED+30 |