TIUPXAP1 ;SLC/JER - Interface w/PCE/Visit Tracking ;Nov 09, 2018@09:27
Source file <TIUPXAP1.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 3 | SETPARM^TIULE $$LNKVST^TIUPXAP3 $$DFLTDOC^TIUPXAPI |
| Authorization Subscription | 1 | $$ISA^USRLM |
| Kernel | 1 | $$NOW^XLFDT |
| PCE Patient Care Encounter | 1 | ($$DATA2PCE,$$PRVCLASS,GETENC)^PXAPI |
| RPC Broker | 1 | $$BROKER^XWBLIB |
| VA FileMan | 1 | ^DIE |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUE | ; Post visit tracking information
; if there is already a visit, and no workload data quit ; *295 Skip defer logic if from reassign (TIURD3) ; *314 move check for call from TIURD3 to the Quit condition |
|
| WORKOK(DA) | ; Evaluate whether workload collection is appropriate
|
|
| ENQ | ; Entry point for Resource
|
|
| POST(TIUX,DFN,TIUDA,ICD,CPT,SC) | ; Call on commitment to post data to PCE/AmbCare
|
|
| PXAPI(TIUVSIT,DFN,VLOC,VDT,VCAT,VSTOP,ICD,CPT,SC,TIUDA) | ; Build input root
|
|
| PROVIDER(USER,DATE) | ; Was USER a PROVIDER on DATE?
|
|
| PROVIDEX | ||
| DEFER(DA) | ; Mark record to defer workload collection
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | POST+3 |
| ^TIU(8925 - [#8925] | QUE+4, QUE+7, WORKOK+1, POST+5, POST+6, PXAPI+24, DEFER+2 |
| ^TMP("PXKENC" | PXAPI+38, PXAPI+40, PXAPI+41 |
| ^TMP("TIUPXAPI" | PXAPI+2! |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | POST+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CPT | QUE+6, QUE+7, 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+4, QUE+5, QUE+7, 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+6 |
| TIUAUTH | PXAPI+1~, PXAPI+24*, PXAPI+25*, PXAPI+28 |
| TIUD0 | WORKOK+1~*, WORKOK+2, POST+1~, POST+5*, POST+6 |
| TIUDA | QUE+4, QUE+5, QUE+7, 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+4 |
| 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 |
| >> TIUREASS | QUE+4 |
| 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+4, QUE+7, 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 |
| >> ZTQUEUED | ENQ+1 |
| >> ZTREQ | ENQ+1* |
