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 |