TIUPUTPF ; SLC/JER - PRF Look-up Method - ;10/9/05
Source file <TIUPUTPF.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 11 | SENDADD^TIUALRT AUDIT^TIUEDI1 ($$EXIST,$$GETRECNW)^TIUEDI3 ($$CHKSUM,$$IDATE,$$NOW)^TIULC ($$DIVISION,$$DOCCLASS,$$PNAME,$$WHOCOSIG,$$WHOSIGNS,DOCPRM)^TIULC1 MAIN^TIUMOVE ($$LINK,$$SELECT)^TIUPRF1 ($$AVAILACT,$$ISPFTTL)^TIUPRFL ENQ^TIUPXAP1 RELEASE^TIUT MAIN^TIUVSIT |
| VA FileMan | 2 | ^DIC (,FILE)^DIE |
| Kernel | 1 | ($$FMADD,$$NOW)^XLFDT |
| Registration | 1 | $$GETHTIU^DGPFAPI1 |
| 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 |
|---|---|---|
| LOOKUP | ; Look-up code used by router/filer
; Required: TIUSSN, TIUVDT ; -- Selected flag action is set in LOOKUP & in GETCHECK^TIUPFFIX; ; Action is used in post-file code to link note. ; Kill it before setting it: |
|
| LOOKUPX | ||
| ONEACT(DFN,TIUTYPE) | ; If there is exactly one Assigment History Action
; available for pat DFN & Title TIUTYPE, return ASSGNIEN^ACTIEN; ; else return 0 |
|
| ONEACTX | ;
|
|
| ILOC(LOCATION) | ; Get pointer to file 44
|
|
| CANEDIT(DA) | ; Check whether or not document is released
|
|
| MAKEADD() | ; Create an addendum record
|
|
| STUFREC(DA,PARENT) | ; Stuff fixed field data
|
|
| DELTEXT(DA) | ; Delete existing text in preparation for replacement
|
|
| WHATYPE(X) | ; Identify document type
; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN |
|
| WHATYPX | ||
| WHATITLE(X) | ; Identify document title
; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN |
|
| WHATITX | ||
| FOLLOWUP(TIUDA) | ; Post-filing code for PRF
|
| Name | Field # of Occurrence |
|---|---|
| $$GETHTIU^DGPFAPI1 | ONEACT+8 |
| ^DIC | ILOC+2, MAKEADD+4, WHATYPE+6, WHATITLE+6 |
| ^DIE | MAKEADD+6, DELTEXT+2 |
| FILE^DIE | STUFREC+27, FOLLOWUP+6, FOLLOWUP+8 |
| SENDADD^TIUALRT | LOOKUP+46 |
| AUDIT^TIUEDI1 | FOLLOWUP+10 |
| $$EXIST^TIUEDI3 | LOOKUP+27 |
| $$GETRECNW^TIUEDI3 | LOOKUP+36 |
| $$CHKSUM^TIULC | FOLLOWUP+10 |
| $$IDATE^TIULC | LOOKUP+15, LOOKUP+26, STUFREC+23 |
| $$NOW^TIULC | STUFREC+8, STUFREC+20 |
| $$DIVISION^TIULC1 | LOOKUP+14 |
| $$DOCCLASS^TIULC1 | MAKEADD+6 |
| $$PNAME^TIULC1 | LOOKUP+35 |
| $$WHOCOSIG^TIULC1 | FOLLOWUP+5 |
| $$WHOSIGNS^TIULC1 | FOLLOWUP+3 |
| DOCPRM^TIULC1 | LOOKUP+21 |
| MAIN^TIUMOVE | LOOKUP+23 |
| $$LINK^TIUPRF1 | FOLLOWUP+13 |
| $$SELECT^TIUPRF1 | LOOKUP+30 |
| $$AVAILACT^TIUPRFL | ONEACT+11 |
| $$ISPFTTL^TIUPRFL | LOOKUP+20 |
| ENQ^TIUPXAP1 | FOLLOWUP+24 |
| RELEASE^TIUT | FOLLOWUP+9 |
| MAIN^TIUVSIT | LOOKUP+24, FOLLOWUP+22 |
| $$FMADD^XLFDT | LOOKUP+15, FOLLOWUP+19 |
| $$NOW^XLFDT | STUFREC+25 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | LOOKUP+13, LOOKUP+22 |
| ^TIU(8925 - [#8925] | LOOKUP+42, CANEDIT+1, STUFREC+13, STUFREC+14, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19, FOLLOWUP+4, FOLLOWUP+7 , FOLLOWUP+12, FOLLOWUP+17 |
| ^TMP("TIUPRF" | LOOKUP+32! |
| ^TMP("TIUPRFH" | ONEACTX+1! |
| ^TMP("TIUPRFUP" | LOOKUP+5!, LOOKUP+33*, LOOKUP+34, FOLLOWUP+11, FOLLOWUP+13, FOLLOWUP+14! |
| Name | Field # of Occurrence |
|---|---|
| ^(12 | FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAYNM | ONEACT+6~, ONEACT+7*, ONEACT+8, ONEACT+10, ONEACT+11 |
| DA | LOOKUP+6~, CANEDIT~, CANEDIT+1, MAKEADD+1~, MAKEADD+5*, MAKEADD+6, MAKEADD+8, STUFREC~, STUFREC+2, DELTEXT~ |
| DFN | LOOKUP+6~, LOOKUP+23, LOOKUP+24, LOOKUP+25, LOOKUP+27, LOOKUP+30, LOOKUP+32, LOOKUP+36, ONEACT~, ONEACT+8 , STUFREC+4, FOLLOWUP+1~, FOLLOWUP+18*, FOLLOWUP+21, FOLLOWUP+22 |
| DIC | ILOC+1~, ILOC+2*, MAKEADD+1~, MAKEADD+3*, MAKEADD+6, WHATYPE+3~, WHATYPE+4*, WHATITLE+3~, WHATITLE+4* |
| DIC("S" | WHATYPE+5*, WHATYPE+6!, WHATITLE+5*, WHATITLE+6! |
| DIC(0 | ILOC+2*, MAKEADD+3*, WHATYPE+4*, WHATITLE+4* |
| DIE | MAKEADD+1~, MAKEADD+6*, DELTEXT+1~, DELTEXT+2* |
| DLAYGO | MAKEADD+1~, MAKEADD+3* |
| DR | MAKEADD+1~, MAKEADD+6*, DELTEXT+1~, DELTEXT+2* |
| DUZ | LOOKUP+27 |
| FDA | STUFREC+1~, FOLLOWUP+1~ |
| FDARR | STUFREC+1~, STUFREC+2*, STUFREC+4, STUFREC+5, STUFREC+6, STUFREC+7, STUFREC+8, STUFREC+9, STUFREC+11, STUFREC+13 , STUFREC+14, STUFREC+15, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19, STUFREC+20, STUFREC+21, STUFREC+22, STUFREC+23 , STUFREC+24, STUFREC+25, STUFREC+26, FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+3, FOLLOWUP+5, FOLLOWUP+8 |
| FLAGS | STUFREC+1~, STUFREC+2*, STUFREC+27, FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+6, FOLLOWUP+8 |
| IENS | STUFREC+1~, STUFREC+2*, FOLLOWUP+1~, FOLLOWUP+2* |
| LOCATION | ILOC~, ILOC+2 |
| ONEIEN | ONEACT+6~, ONEACT+11 |
| PARENT | STUFREC~, STUFREC+3, STUFREC+12, STUFREC+13, STUFREC+14, STUFREC+15, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19 |
| >> PRFILERR | LOOKUP+30, LOOKUP+32 |
| RESULT | ONEACT+6~, ONEACT+7*, ONEACT+11*, ONEACTX+2 |
| TIU | LOOKUP+6~, LOOKUP+23, LOOKUP+24, LOOKUP+25, LOOKUP+36, FOLLOWUP+1~, FOLLOWUP+22 |
| TIU("EDT" | LOOKUP+26, STUFREC+6 |
| TIU("INST" | STUFREC+22 |
| TIU("LDT" | STUFREC+7 |
| TIU("LOC" | STUFREC+9, STUFREC+21 |
| TIU("SVC" | STUFREC+11 |
| TIU("VISIT" | STUFREC+4 |
| TIU("VLOC" | STUFREC+9 |
| TIU("VSTR" | LOOKUP+27, STUFREC+25, FOLLOWUP+15, FOLLOWUP+23 |
| TIUASACT | LOOKUP+7~, LOOKUP+30*, LOOKUP+32*, LOOKUP+33 |
| TIUASSGN | ONEACT+6~, ONEACT+10*, ONEACT+11 |
| TIUATYP | MAKEADD+1~, MAKEADD+2*, MAKEADD+3, MAKEADD+6 |
| TIUD0 | FOLLOWUP+16~, FOLLOWUP+17*, FOLLOWUP+18 |
| TIUD12 | FOLLOWUP+16~, FOLLOWUP+17*, FOLLOWUP+19, FOLLOWUP+20 |
| TIUDA | FOLLOWUP~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+4, FOLLOWUP+5, FOLLOWUP+7, FOLLOWUP+9, FOLLOWUP+10, FOLLOWUP+12, FOLLOWUP+13 , FOLLOWUP+17 |
| TIUDAD | LOOKUP+6~, LOOKUP+43*, LOOKUP+45, LOOKUP+46 |
| >> TIUDDT | STUFREC+23 |
| TIUDFN | FOLLOWUP+12~*, FOLLOWUP+13 |
| TIUDG | ONEACT+6~, ONEACT+8*, ONEACT+9 |
| TIUDPRM | LOOKUP+7~, LOOKUP+21, LOOKUP+36 |
| TIUEDIT | LOOKUP+6~, LOOKUP+41*, LOOKUP+42, LOOKUP+43 |
| TIUEDT | LOOKUP+6~, LOOKUP+15*, LOOKUP+16, LOOKUP+23, LOOKUP+24, FOLLOWUP+16~, FOLLOWUP+18*, FOLLOWUP+19, FOLLOWUP+21, FOLLOWUP+22 |
| TIUEXIST | LOOKUP+7~, LOOKUP+8*, LOOKUP+27*, LOOKUP+34 |
| TIUFPRIV | MAKEADD+1~*, WHATYPE+3~*, WHATITLE+3~* |
| >> TIUHDR( | LOOKUP+47!, MAKEADD+7! |
| >> TIUHDR(1301 | LOOKUP+47! |
| TIUHLOC | FOLLOWUP+16~, FOLLOWUP+19*, FOLLOWUP+20 |
| >> TIUINST | LOOKUP+14* |
| TIULDT | LOOKUP+6~, LOOKUP+15*, LOOKUP+23, LOOKUP+24, FOLLOWUP+16~, FOLLOWUP+19*, FOLLOWUP+21, FOLLOWUP+22 |
| >> TIULOC | LOOKUP+12*, LOOKUP+13, LOOKUP+14, LOOKUP+22, LOOKUP+23, LOOKUP+24 |
| TIUMSG | STUFREC+1~, FOLLOWUP+1~ |
| TIUNEW | LOOKUP+7~, LOOKUP+36, LOOKUP+40 |
| >> TIUSSN | LOOKUP+9, LOOKUP+10*, LOOKUP+11, LOOKUP+23, LOOKUP+24 |
| TIUTEMP | FOLLOWUP+1~, FOLLOWUP+13* |
| >> TIUTITLE | LOOKUP+17 |
| >> TIUTYP(1 | LOOKUP+35*, LOOKUP+36 |
| TIUTYPE | LOOKUP+6~, LOOKUP+17*, LOOKUP+18, LOOKUP+20, LOOKUP+21, LOOKUP+27, LOOKUP+30, LOOKUP+32, LOOKUP+35, ONEACT~ , ONEACT+8 |
| >> TIUVDT | LOOKUP+9, LOOKUP+15, LOOKUP+26 |
| TIUVLOC | FOLLOWUP+16~, FOLLOWUP+20*, FOLLOWUP+21, FOLLOWUP+22 |
| TIUXCRP | LOOKUP+6~ |
| U | LOOKUP+22, LOOKUP+35, ONEACT+11, CANEDIT+1, STUFREC+4, STUFREC+6, STUFREC+7, STUFREC+9, STUFREC+11, STUFREC+13 , STUFREC+14, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19, STUFREC+21, STUFREC+22, FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+12 , FOLLOWUP+13, FOLLOWUP+18, FOLLOWUP+19, FOLLOWUP+20 |
| X | ILOC+1~, ILOC+2*, MAKEADD+1~, MAKEADD+3*, DELTEXT+1~, WHATYPE~, WHATITLE~ |
| Y | LOOKUP+9*, LOOKUP+11*, LOOKUP+13*, LOOKUP+16*, LOOKUP+18*, LOOKUP+20*, LOOKUP+25*, LOOKUP+26*, LOOKUP+34*, LOOKUP+36* , LOOKUP+37, LOOKUP+41, LOOKUP+42, LOOKUP+43*, LOOKUP+44, LOOKUP+45, LOOKUP+46, ILOC+1~, ILOC+3, MAKEADD+1~ , MAKEADD+5, DELTEXT+1~, WHATYPE+3~, WHATYPX, WHATITLE+3~, WHATITX |
