©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
ADEATT1 ; IHS/HQT/MJL - ATTENDING DDS STMNT PT 2 ;12:26 PM [ 03/24/1999 9:04 AM ]
Source file <ADEATT1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOAD | ||
| END | ||
| READ | ||
| 1 | ;ADECAR(1);CARRIER NAME: ;I $L(X)<3!($L(X)>30) K X;Enter name of Insurance Carrier (3-30 characters)
|
|
| 3 | ;ADECAR(3);CARRIER ADDRESS - LINE 2: ;I X]"",$L(X)<3!($L(X)>30) K X;Enter Second line of Carrier's Address (3-30 characters)
|
|
| 2 | ;ADECAR(2);CARRIER ADDRESS - LINE 1: ;I X]"",$L(X)<3!($L(X)>30) K X;Enter First line of Carrier's Address (3-30 characters)
|
|
| 5 | ;ADECAR(5);CARRIER STATE: ;K:X?.N!(X="") X I $D(X),'$D(^DIC(5,"B",X)),'$D(^DIC(5,"C",X)) K X;Enter Insurance Carrier's State
|
|
| 4 | ;ADECAR(4);CARRIER CITY: ;I $L(X)<3!($L(X)>30) K X;Enter Insurance Carrier's City
|
|
| 6 | ;ADECAR(6);CARRIER ZIP: ;I X]"" K:X'?1.5N X;Enter Insurance Carrier's Zip Code
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences |
|---|---|
| LOAD | ADEATT1+2 |
| READ | ADEATT1+2, READ+3, READ+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADETXT | ADEATT1+2*, END!, LOAD |
| ADEVAR | END!, LOAD*, READ+4, READ+6 |
| ADEVAR( | LOAD* |
| ADEVAR(0 | READ |
| ADEVAR(1 | READ+5 |
| ADEVAR(2 | READ+3, READ+5 |
| DTIME | READ+1 |
| >> J | ADEATT1+2* |
| >> K | LOAD* |
| X | END!, READ+1*, READ+2, READ+3, READ+4*, READ+5, READ+6 |
| >> Y | ADEATT1+2, READ*, READ+2* |
| Name | Field # of Occurrence |
|---|---|
| $T(@J | ADEATT1+2 |