PXPT ;ISL/MKB,DLT,dee - Patient/IHS maintenance routine ;8/10/96
Source file <PXPT.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | ^%ZTLOAD BMES^XPDUTL |
VA Fileman | 2 | FILE^DICN ^DIR |
Registration | 1 | $$SITE^VASITE |
Name | Comments | DBIA/ICR reference |
---|---|---|
Q1 | ||
LOC | ;POPULATE LOCATION FILE
|
|
EN | ; entry point
|
|
GETLOC | ||
QUE | ; Queue job to populate IHS Patient File #9000001
|
|
MASTER | ;Populate the PXPT fields $501 & #502 in PCE PARAMETERS file (#815)
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUTTLOC - [#9999999.06] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4 - [#4] | LOC+4 |
^PX(815 - [#815] | MASTER+8*, MASTER+10*, QUE+4, GETLOC |
Name | Line Occurrences |
---|---|
GETLOC | MASTER+5, QUE+3 |
LOC | EN+1 |
MASTER | EN+1 |
QUE | EN+1, Q1+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DD | LOC+2! |
>> DIC | LOC+3* |
>> DIC(0 | LOC+3* |
DINUM | LOC+4*, QUE+2~ |
>> DIR("A" | QUE+8* |
>> DIR("B" | QUE+8* |
>> DIR(0 | QUE+8* |
DO | LOC+2! |
PXPTINST | LOC+4*, LOC+5! |
>> PXPTLAST | QUE+4*, QUE+5, QUE+6, QUE+10 |
PXPTLOC | MASTER+2~, MASTER+4*, MASTER+5, MASTER+6*, MASTER+8, QUE+2~, QUE+3, Q1+3, GETLOC* |
>> X | LOC+4* |
>> XPDQUES("POS | PXPT LOCATION" , MASTER+4 |
>> Y | QUE+6 |
ZTDESC | QUE+1~, Q1+2* |
ZTDTH | QUE+1~ |
ZTIO | QUE+1~, Q1+2* |
ZTRTN | QUE+1~, Q1+2* |
>> ZTSAVE("PXPTLOC" | Q1+3* |
ZTSK | QUE+1~, Q1+5, Q1+6 |