PXIPOST ;ISL/dee - POST ROUTINE FOR PX PACKAGE ;8/12/96
Source file <PXIPOST.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
POST | ;
|
|
SET | ;Set PCE into the package multiple in visit tracking
|
|
APPGRP | ;
|
|
APPGRP2 | ;
|
|
AICS | ;Below is copyed form PXACT^IBD21PT2
|
|
PXACT | ; -- if pce is installed, activate the selection package interfaces
|
|
AICSPROT | ;
|
|
SDAMPROT | ;
|
|
PACKAGE | ;Remove the old package entries that are no longer used.
|
|
QUE | ; Queue job to populate IHS Patient File #9000001
|
|
Q1 |
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | Q1+4 |
^DIC | AICSPROT+19, AICSPROT+26, SDAMPROT+16, PACKAGE+9 |
FILE^DICN | APPGRP+11, APPGRP2+10 |
^DIK | PACKAGE+18, PACKAGE+23 |
GETLOC^PXPTPOST | QUE+3 |
$$PKG^VSIT | SET+2 |
$$PKGON^VSIT | SET+2 |
$$NEWCP^XPDUTL | EN+3, EN+4, EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11 |
BMES^XPDUTL | APPGRP+1, APPGRP+13, 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+10, 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 |
---|---|
$T(INTRFCE+I | PXACT+5 |