TIUPXAP1 ; SLC/JER - Interface w/PCE/Visit Tracking ;28-OCT-2003 16:45:37 [8/18/04 11:24am]
Source file <TIUPXAP1.m>
Package | Total | Call Graph |
---|---|---|
Text Integration Utility | 3 | SETPARM^TIULE $$LNKVST^TIUPXAP3 $$DFLTDOC^TIUPXAPI |
Kernel | 2 | ^%ZTLOAD $$NOW^XLFDT |
Authorization Subscription | 1 | $$ISA^USRLM |
PCE Patient Care Encounter | 1 | ($$DATA2PCE,$$PRVCLASS,GETENC)^PXAPI |
RPC Broker | 1 | $$BROKER^XWBLIB |
VA Fileman | 1 | ^DIE |
Name | Comments | DBIA/ICR reference |
---|---|---|
DEFER(DA) | ; Mark record to defer workload collection
|
|
PXAPI(TIUVSIT,DFN,VLOC,VDT,VCAT,VSTOP,ICD,CPT,SC,TIUDA) | ; Build input root
|
|
WORKOK(DA) | ; Evaluate whether workload collection is appropriate
|
|
ENQ | ; Entry point for Resource
|
|
QUE | ; Use a RESOURCE to post visit tracking information in background
|
|
POST(TIUX,DFN,TIUDA,ICD,CPT,SC) | ; Call on commitment to post data to PCE/AmbCare
|
|
PROVIDEX | ||
PROVIDER(USER,DATE) | ; Was USER a PROVIDER on DATE?
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SC - [#44] | POST+3 |
^TIU(8925 - [#8925] | QUE+3, QUE+6, WORKOK+1, POST+5, POST+6, PXAPI+24, DEFER+2 |
^TMP("PXKENC" | PXAPI+38, PXAPI+40, PXAPI+41 |
^TMP("TIUPXAPI" | PXAPI+2! |
Name | Line Occurrences |
---|---|
$$PROVIDER | PXAPI+25, PXAPI+28 |
$$WORKOK | QUE+3 |
DEFER | QUE+4 |
ENQ | QUE+12 |
POST | ENQ+2 |
PROVIDEX | PROVIDER+3, PROVIDER+4 |
PXAPI | POST+4 |
Name | Field # of Occurrence |
---|---|
^(0 | POST+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CPT | QUE+5, QUE+6, ENQ+2, POST~, POST+4, PXAPI~, PXAPI+13, PXAPI+56 |
CPT( | PXAPI+56, PXAPI+57, PXAPI+58, PXAPI+62, PXAPI+63, PXAPI+66, PXAPI+67 |
DA | QUE+3, QUE+4, QUE+6, WORKOK~, WORKOK+1, ENQ+2, POST+7~*, PXAPI+1~, DEFER~, DEFER+2 , DEFER+5 |
DATE | PROVIDER~, PROVIDER+4 |
DFN | ENQ+2, POST~, POST+4, POST+6, PXAPI~, PXAPI+4, PXAPI+36 |
DIE | POST+7~, POST+8*, DEFER+1~, DEFER+3* |
DR | POST+7~, POST+8*, DEFER+1~, DEFER+3* |
DUZ | PXAPI+28, PXAPI+68 |
EXCL | PROVIDER+1~, PROVIDER+2*, PROVIDER+5 |
ICD | ENQ+2, POST~, POST+4, PXAPI~, PXAPI+50 |
ICD( | PXAPI+50, PXAPI+52, PXAPI+53, PXAPI+54, PXAPI+55 |
MODATA | PXAPI+60~, PXAPI+63*, PXAPI+64 |
MODCNT | PXAPI+60~, PXAPI+61*, PXAPI+62*, PXAPI+63 |
PRVCL | PROVIDER+1~, PROVIDER+4*, PROVIDER+5 |
SC | ENQ+2, POST~, POST+4, PXAPI~, PXAPI+6 |
SC("AO" | PXAPI+8 |
SC("EC" | PXAPI+10 |
SC("HNC" | PXAPI+12 |
SC("IR" | PXAPI+9 |
SC("MST" | PXAPI+11 |
SC("SC" | PXAPI+7 |
SUCCESS | PXAPI+1~, PXAPI+68* |
>> TIU | ENQ+2 |
>> TIU("VISIT" | QUE+5 |
TIUAUTH | PXAPI+1~, PXAPI+24*, PXAPI+25*, PXAPI+28 |
TIUD0 | WORKOK+1~*, WORKOK+2, POST+1~, POST+5*, POST+6 |
TIUDA | QUE+3, QUE+4, QUE+6, ENQ+2, POST~, POST+4, POST+5, POST+6, POST+7, PXAPI~ , PXAPI+23, PXAPI+24, DEFER+2 |
TIUDDOC | PXAPI+22~, PXAPI+26*, PXAPI+30, PXAPI+44 |
>> TIUDPRM(0 | QUE+3 |
TIUI | PXAPI+1~, PXAPI+50*, PXAPI+51, PXAPI+52, PXAPI+53, PXAPI+54, PXAPI+55, PXAPI+56*, PXAPI+57, PXAPI+58 , PXAPI+62, PXAPI+63, PXAPI+64, PXAPI+65, PXAPI+66, PXAPI+67 |
TIULOC | POST+1~, POST+2*, POST+3, POST+4, POST+6 |
TIUPDATA | PXAPI+34~, PXAPI+41*, PXAPI+42 |
TIUPRIME | PXAPI+34~, PXAPI+35*, PXAPI+42*, PXAPI+43 |
>> TIUPRLST | PXAPI+18, PXAPI+19 |
>> TIUPRLST(1 | PXAPI+20 |
>> TIUPRLST(2 | PXAPI+20 |
>> TIUPRM0 | PXAPI+27, PXAPI+30 |
TIUPROV | PXAPI+1~, PXAPI+20*, PXAPI+28*, PXAPI+29, PXAPI+30, PXAPI+47, PXAPI+49, PXAPI+51, PXAPI+65 |
TIUPVCNT | PXAPI+34~, PXAPI+35*, PXAPI+44, PXAPI+45, PXAPI+46*, PXAPI+47 |
TIUPXAPI | PXAPI+1~, PXAPI+2*, PXAPI+3, PXAPI+4, PXAPI+5, PXAPI+7, PXAPI+8, PXAPI+9, PXAPI+10, PXAPI+11 , PXAPI+12, PXAPI+13, PXAPI+14, PXAPI+15, PXAPI+16, PXAPI+17, PXAPI+19, PXAPI+44, PXAPI+45, PXAPI+47 , PXAPI+49, PXAPI+51, PXAPI+52, PXAPI+53, PXAPI+54, PXAPI+55, PXAPI+57, PXAPI+58, PXAPI+64, PXAPI+65 , PXAPI+66, PXAPI+67, PXAPI+68, PXAPI+69 |
TIUSTOP | POST+1~, POST+3*, POST+4 |
TIUTPRV | PXAPI+34~, PXAPI+39*, PXAPI+40*, PXAPI+41 |
TIUTVST | PXAPI+34~, PXAPI+37*, PXAPI+38*, PXAPI+40, PXAPI+41 |
TIUVCAT | POST+1~, POST+3*, POST+4 |
TIUVDT | POST+1~, POST+2*, POST+4, POST+6, POST+10 |
TIUVSIT | POST+1~, POST+4, POST+5, POST+8, POST+10, PXAPI~, PXAPI+68, DEFER+1~, DEFER+5 |
TIUX | POST~ |
TIUX("VISIT" | POST+10* |
TIUX("VSTR" | POST+2, POST+3 |
TIUY | PROVIDER+1~*, PROVIDER+3*, PROVIDER+5*, PROVIDEX |
U | QUE+3, QUE+6, WORKOK+2, POST+3, POST+6, POST+10, PXAPI+7, PXAPI+8, PXAPI+9, PXAPI+10 , PXAPI+11, PXAPI+12, PXAPI+24, PXAPI+30, PXAPI+52, PXAPI+53, PXAPI+54, PXAPI+57, PXAPI+64, PXAPI+66 , PXAPI+67, PROVIDER+5, DEFER+2 |
USER | PROVIDER~, PROVIDER+3, PROVIDER+4 |
VCAT | PXAPI~, PXAPI+14 |
VDT | PXAPI~, PXAPI+3, PXAPI+25, PXAPI+28, PXAPI+36 |
VLOC | PXAPI~, PXAPI+5, PXAPI+26, PXAPI+36 |
VSTOP | PXAPI~, PXAPI+15 |
>> XWBOS | PXAPI+29 |
ZTDESC | QUE+1~, QUE+11* |
ZTDTH | QUE+1~, QUE+10* |
ZTIO | QUE+1~, QUE+10* |
>> ZTQUEUED | ENQ+1 |
>> ZTREQ | ENQ+1* |
ZTRTN | QUE+1~, QUE+10* |
ZTSAVE | QUE+1~ |
ZTSAVE("CPT(" | QUE+8* |
ZTSAVE("DA" | QUE+7* |
ZTSAVE("DFN" | QUE+7* |
ZTSAVE("DUZ(" | QUE+8* |
ZTSAVE("ICD(" | QUE+8* |
ZTSAVE("SC(" | QUE+8* |
ZTSAVE("TIU(" | QUE+7* |
ZTSAVE("TIUDA" | QUE+7* |
ZTSAVE("TIUPRLST(" | QUE+9* |
ZTSAVE("XWBOS" | QUE+9* |
ZTSK | QUE+1~, QUE+12 |