PXIPOST ;ISL/dee - POST ROUTINE FOR PX PACKAGE ;8/12/96
Source file <PXIPOST.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 3 | ^DIC FILE^DICN ^DIK |
Kernel | 2 | ^%ZTLOAD ($$NEWCP,BMES,MES)^XPDUTL |
PCE Patient Care Encounter | 2 | GETLOC^PXPTPOST ($$PKG,$$PKGON)^VSIT |
Name | Comments | DBIA/ICR reference |
---|---|---|
AICS | ;Below is copyed form PXACT^IBD21PT2
|
|
Q1 | ||
SET | ;Set PCE into the package multiple in visit tracking
|
|
APPGRP | ;
|
|
PACKAGE | ;Remove the old package entries that are no longer used.
|
|
PXACT | ; -- if pce is installed, activate the selection package interfaces
|
|
AICSPROT | ;
|
|
APPGRP2 | ;
|
|
EN | ;
|
|
QUE | ; Queue job to populate IHS Patient File #9000001
|
|
POST | ;
|
|
SDAMPROT | ;
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | Q1+4 |
^DIC | AICSPROT+19, AICSPROT+26, SDAMPROT+16, PACKAGE+9 |
FILE^DICN | APPGRP+14, APPGRP2+10 |
^DIK | PACKAGE+18, PACKAGE+23 |
GETLOC^PXPTPOST | QUE+3 |
$$PKG^VSIT | SET+2 |
$$PKGON^VSIT | SET+2 |
$$NEWCP^XPDUTL | EN+4, EN+5, EN+6, EN+7, EN+9, EN+10 |
BMES^XPDUTL | APPGRP+1, APPGRP+16, APPGRP2+1, APPGRP2+12, PXACT+1, PXACT+11, AICSPROT+1, PACKAGE+3, Q1, Q1+6 |
MES^XPDUTL | APPGRP+2, APPGRP2+2, AICSPROT+14, AICSPROT+16, AICSPROT+21, AICSPROT+23, SDAMPROT+11, SDAMPROT+13, PACKAGE+17, PACKAGE+19 , QUE+5, QUE+6, Q1+5, Q1+6, Q1+7 |
FileNo | Call Tags |
---|---|
^ORD(100.99 - [#100.99] | Classic Fileman Calls |
^DIC(9.4 - [#9.4] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVPRV(0 | POST+1* |
^AUTTEDT(0 | PXACT+4 |
^DD(1 | APPGRP+13, APPGRP2+9 |
^DD(101 | AICSPROT+12, SDAMPROT+9 |
^DIC - [#1] | APPGRP+5, APPGRP2+4 |
^IBE(357.6 - [#357.6] | PXACT+6, PXACT+8, PXACT+9, PXACT+10* |
^ORD(100.99 - [#100.99] | PACKAGE+12 |
^ORD(101 - [#101] | AICSPROT+5, AICSPROT+7, AICSPROT+9, AICSPROT+16, AICSPROT+23, SDAMPROT+4, SDAMPROT+6, SDAMPROT+13 |
^PX(815 - [#815] | POST+4, POST+5*, POST+6*, POST+9, POST+10*, QUE+7, QUE+8* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | APPGRP+4!, APPGRP+15!, APPGRP2+3!, APPGRP2+11!, AICSPROT+3!, SDAMPROT+2!, PACKAGE+2~, PACKAGE+5!, PACKAGE+16*, PACKAGE+18 , PACKAGE+22* |
DA(1 | APPGRP+11*, APPGRP2+7*, AICSPROT+15*, AICSPROT+16, AICSPROT+17, AICSPROT+22*, AICSPROT+23, AICSPROT+24, SDAMPROT+12*, SDAMPROT+13 , SDAMPROT+14, PACKAGE+16* |
DD | APPGRP+4!, APPGRP+15!, APPGRP2+3!, APPGRP2+11! |
DIC | APPGRP+4!, APPGRP+9*, APPGRP+15!, APPGRP2+3!, APPGRP2+5*, APPGRP2+11!, AICSPROT+3!, AICSPROT+17*, AICSPROT+24*, SDAMPROT+2! , SDAMPROT+14*, PACKAGE+2~, PACKAGE+5!, PACKAGE+6* |
DIC( | APPGRP+7 |
DIC("P" | APPGRP+13*, APPGRP2+9*, AICSPROT+12*, SDAMPROT+9* |
DIC(0 | APPGRP+10*, APPGRP2+6*, AICSPROT+11*, SDAMPROT+8*, PACKAGE+7* |
DIK | PACKAGE+2~, PACKAGE+14!, PACKAGE+15*, PACKAGE+20!, PACKAGE+21* |
DINUM | QUE+2~ |
DO | APPGRP+4!, APPGRP+15!, APPGRP2+3!, APPGRP2+11! |
GMI | APPGRP+3~, APPGRP+5*, APPGRP+7, APPGRP+9, APPGRP+11, APPGRP+16, APPGRP2+3!, APPGRP2+4*, APPGRP2+5, APPGRP2+7 , APPGRP2+12 |
I | PXACT+2~, PXACT+5* |
IBDF | AICSPROT+2~, AICSPROT+5*, AICSPROT+10, AICSPROT+16, AICSPROT+23, SDAMPROT+1~ |
IBDFNAME | AICSPROT+2~, AICSPROT+4*, AICSPROT+5, AICSPROT+14, AICSPROT+18, AICSPROT+21, AICSPROT+25, SDAMPROT+1~ |
>> IBDIEN | PXACT+6*, PXACT+7, PXACT+8, PXACT+9, PXACT+10 |
J | PXACT+2~ |
NAME | PACKAGE+1~, PACKAGE+4*, PACKAGE+8, PACKAGE+17, PACKAGE+19 |
PACKAGE | PACKAGE+1~, PACKAGE+11*, PACKAGE+12, PACKAGE+16, PACKAGE+22 |
PXCA | AICSPROT+2~, AICSPROT+7*, AICSPROT+13, AICSPROT+15, SDAMPROT+1~ |
PXCANAME | AICSPROT+2~, AICSPROT+6*, AICSPROT+7, AICSPROT+14, SDAMPROT+1~ |
PXK | AICSPROT+2~, AICSPROT+9*, AICSPROT+20, AICSPROT+22, SDAMPROT+1~, SDAMPROT+6*, SDAMPROT+10, SDAMPROT+12 |
PXKNAME | AICSPROT+2~, AICSPROT+8*, AICSPROT+9, AICSPROT+21, SDAMPROT+1~, SDAMPROT+5*, SDAMPROT+6, SDAMPROT+11 |
PXNEWCP | EN+2~, EN+4*, EN+5*, EN+6*, EN+7*, EN+9*, EN+10* |
PXPTLAST | QUE+2~, QUE+7*, QUE+8 |
PXPTLOC | QUE+2~, QUE+4 |
>> SDAM | SDAMPROT+4*, SDAMPROT+7, SDAMPROT+13 |
>> SDAMNAME | SDAMPROT+3*, SDAMPROT+4, SDAMPROT+11, SDAMPROT+15 |
VAR | SET+1~, SET+2* |
X | APPGRP+12*, APPGRP2+8*, PXACT+3!, PXACT+5*, PXACT+6, PXACT+11, AICSPROT+3!, AICSPROT+18*, AICSPROT+25*, SDAMPROT+2! , SDAMPROT+15*, PACKAGE+8* |
>> XPDQUES("POS | SWITCH DATE" , POST+4, POST+5, POST+6 |
Y | APPGRP+16, APPGRP2+12, PXACT+3!, AICSPROT+3!, SDAMPROT+2!, PACKAGE+10, PACKAGE+11 |
ZTDESC | QUE+1~, Q1+1*, Q1+2* |
ZTDTH | QUE+1~, Q1+3* |
ZTIO | QUE+1~, Q1+1*, Q1+3* |
ZTRTN | QUE+1~, Q1+1* |
ZTSAVE | QUE+1~ |
ZTSK | QUE+1~, Q1+5, Q1+6 |
Name | Field # of Occurrence |
---|---|
$T(INTRFCE+I | PXACT+5 |