TIUPUTPN ; SLC/JER - PN Look-up Method ;01-Aug-2011 12:04;MGH
Source file <TIUPUTPN.m>
Package | Total | Call Graph |
---|---|---|
Text Integration Utility | 10 | SENDADD^TIUALRT $$CLASS^TIUCNSLT AUDIT^TIUEDI1 $$GETRECNW^TIUEDI3 ($$CHKSUM,$$IDATE,$$NOW)^TIULC ($$DIVISION,$$DOCCLASS,$$PNAME,$$WHOCOSIG,$$WHOSIGNS,DOCPRM)^TIULC1 $$REQCOSIG^TIULP $$ISA^TIULX RELEASE^TIUT MAIN^TIUVSIT |
IHS Mods To Text Integration Utilities | 3 | VNOTE^BTIUPCC ^BTIUPUTP ($$IPAT,$$IVST)^BTIUU1 |
Kernel | 2 | ($$FMADD,$$NOW)^XLFDT $$STRIP^XLFSTR |
VA Fileman | 2 | ^DIC (,FILE)^DIE |
Package | Total | Caller Graph |
---|---|---|
Text Integration Utility | 2 | TIUHL7P3 TIURE |
Name | Comments | DBIA/ICR reference |
---|---|---|
DELTEXT(DA) | ; Delete existing text in preparation for replacement
|
|
LOOKUPX | ||
CANEDIT(DA) | ; Check whether or not document is released
|
|
WHATYPX | ||
WHATITX | ||
WHATYPE(X) | ; Identify document type
; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN |
|
FOLLOWUP(TIUDA) | ; Post-filing code for PROGRESS NOTES
|
|
LOOKUP | ; Look-up code used by router/filer
; Required: TIUSSN, TIUVDT |
|
WHATITLE(X) | ; Identify document title
; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN |
|
ILOC(LOCATION) | ; Get pointer to file 44
|
|
STUFREC(DA,PARENT) | ; Stuff fixed field data
|
|
MAKEADD() | ; Create an addendum record
|
Name | Field # of Occurrence |
---|---|
VNOTE^BTIUPCC | FOLLOWUP+11 |
^BTIUPUTP | LOOKUP+26 |
$$IPAT^BTIUU1 | FOLLOWUP+11 |
$$IVST^BTIUU1 | FOLLOWUP+11 |
^DIC | ILOC+2, MAKEADD+4, WHATYPE+6, WHATITLE+6 |
^DIE | MAKEADD+6, DELTEXT+2 |
FILE^DIE | STUFREC+27, FOLLOWUP+6, FOLLOWUP+10 |
SENDADD^TIUALRT | LOOKUP+48 |
$$CLASS^TIUCNSLT | LOOKUP+19 |
AUDIT^TIUEDI1 | FOLLOWUP+13 |
$$GETRECNW^TIUEDI3 | LOOKUP+34 |
$$CHKSUM^TIULC | FOLLOWUP+13 |
$$IDATE^TIULC | LOOKUP+14, LOOKUP+31, STUFREC+23 |
$$NOW^TIULC | STUFREC+8, STUFREC+20 |
$$DIVISION^TIULC1 | LOOKUP+13 |
$$DOCCLASS^TIULC1 | MAKEADD+6 |
$$PNAME^TIULC1 | LOOKUP+32 |
$$WHOCOSIG^TIULC1 | FOLLOWUP+5 |
$$WHOSIGNS^TIULC1 | FOLLOWUP+3 |
DOCPRM^TIULC1 | LOOKUP+20 |
$$REQCOSIG^TIULP | FOLLOWUP+9 |
$$ISA^TIULX | LOOKUP+19 |
RELEASE^TIUT | FOLLOWUP+12 |
MAIN^TIUVSIT | FOLLOWUP+21 |
$$FMADD^XLFDT | LOOKUP+14, FOLLOWUP+18 |
$$NOW^XLFDT | STUFREC+25 |
$$STRIP^XLFSTR | LOOKUP+7 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TIU(8925 - [#8925] | LOOKUP+41, LOOKUP+44, CANEDIT+1, STUFREC+13, STUFREC+14, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19, FOLLOWUP+4 , FOLLOWUP+7, FOLLOWUP+9, FOLLOWUP+16 |
Name | Line Occurrences |
---|---|
$$CANEDIT | LOOKUP+43 |
$$ILOC | LOOKUP+10 |
$$MAKEADD | LOOKUP+41, LOOKUP+45 |
$$WHATITLE | LOOKUP+16, MAKEADD+2 |
DELTEXT | LOOKUP+44 |
LOOKUPX | LOOKUP+5, LOOKUP+8, LOOKUP+27, LOOKUP+30, LOOKUP+31, LOOKUP+35 |
STUFREC | LOOKUP+47 |
Name | Field # of Occurrence |
---|---|
^(12 | FOLLOWUP+4, FOLLOWUP+7, FOLLOWUP+9, FOLLOWUP+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BTIUVSIT | LOOKUP+26~ |
DA | LOOKUP+2~, CANEDIT~, CANEDIT+1, MAKEADD+1~, MAKEADD+5*, MAKEADD+6, MAKEADD+8, STUFREC~, STUFREC+2, DELTEXT~ |
DFN | LOOKUP+2~, LOOKUP+30, LOOKUP+34, STUFREC+4, FOLLOWUP+1~, FOLLOWUP+17*, FOLLOWUP+20, FOLLOWUP+21 |
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* |
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+10 |
FLAGS | STUFREC+1~, STUFREC+2*, STUFREC+27, FOLLOWUP+1~, FOLLOWUP+2*, FOLLOWUP+6, FOLLOWUP+10 |
IENS | STUFREC+1~, STUFREC+2*, FOLLOWUP+1~, FOLLOWUP+2* |
LOCATION | ILOC~, ILOC+2 |
PARENT | STUFREC~, STUFREC+3, STUFREC+12, STUFREC+13, STUFREC+14, STUFREC+15, STUFREC+16, STUFREC+17, STUFREC+18, STUFREC+19 |
TIU | LOOKUP+2~, LOOKUP+30, LOOKUP+34, FOLLOWUP+1~, FOLLOWUP+21 |
TIU("EDT" | LOOKUP+31, STUFREC+6 |
TIU("INST" | STUFREC+22 |
TIU("LDT" | STUFREC+7 |
TIU("LOC" | STUFREC+9, STUFREC+21 |
TIU("SVC" | STUFREC+11 |
TIU("VISIT" | LOOKUP+27, STUFREC+4 |
TIU("VLOC" | STUFREC+9 |
TIU("VSTR" | STUFREC+25, FOLLOWUP+14, FOLLOWUP+22 |
TIUATYP | MAKEADD+1~, MAKEADD+2*, MAKEADD+3, MAKEADD+6 |
TIUD0 | FOLLOWUP+15~, FOLLOWUP+16*, FOLLOWUP+17 |
TIUD12 | FOLLOWUP+15~, FOLLOWUP+16*, FOLLOWUP+18, FOLLOWUP+19 |
TIUDA | FOLLOWUP~, FOLLOWUP+2, FOLLOWUP+3, FOLLOWUP+4, FOLLOWUP+5, FOLLOWUP+7, FOLLOWUP+9, FOLLOWUP+11, FOLLOWUP+12, FOLLOWUP+13 , FOLLOWUP+16 |
TIUDAD | LOOKUP+2~, LOOKUP+41*, LOOKUP+45*, LOOKUP+47, LOOKUP+48 |
>> TIUDDT | STUFREC+23 |
TIUDPRM | LOOKUP+3~, LOOKUP+20, LOOKUP+34, FOLLOWUP+8! |
TIUEDIT | LOOKUP+2~, LOOKUP+43*, LOOKUP+44, LOOKUP+45 |
TIUEDT | LOOKUP+2~, LOOKUP+14*, LOOKUP+15, FOLLOWUP+15~, FOLLOWUP+17*, FOLLOWUP+18, FOLLOWUP+20, FOLLOWUP+21 |
TIUFPRIV | MAKEADD+1~*, WHATYPE+3~*, WHATITLE+3~* |
>> TIUHDR( | LOOKUP+49!, LOOKUP+50!, MAKEADD+7! |
>> TIUHDR(1301 | LOOKUP+49! |
TIUHLOC | FOLLOWUP+15~, FOLLOWUP+18*, FOLLOWUP+19 |
>> TIUINST | LOOKUP+13* |
TIULDT | LOOKUP+2~, LOOKUP+14*, FOLLOWUP+15~, FOLLOWUP+18*, FOLLOWUP+20, FOLLOWUP+21 |
>> TIULOC | LOOKUP+10*, LOOKUP+12*, LOOKUP+13 |
TIUMSG | STUFREC+1~, FOLLOWUP+1~ |
TIUNEW | LOOKUP+2~, LOOKUP+34, LOOKUP+38 |
>> TIUSSN | LOOKUP+5, LOOKUP+6*, LOOKUP+7*, LOOKUP+8 |
>> TIUTITLE | LOOKUP+16 |
>> TIUTYP(1 | LOOKUP+32*, LOOKUP+34 |
TIUTYPE | LOOKUP+2~, LOOKUP+16*, LOOKUP+17, LOOKUP+19, LOOKUP+20, LOOKUP+32 |
>> TIUVDT | LOOKUP+5, LOOKUP+14, LOOKUP+31 |
TIUVLOC | FOLLOWUP+15~, FOLLOWUP+19*, FOLLOWUP+20, FOLLOWUP+21 |
TIUXCRP | LOOKUP+2~ |
U | LOOKUP+32, 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+9, FOLLOWUP+17, FOLLOWUP+18 , FOLLOWUP+19 |
X | ILOC+1~, ILOC+2*, MAKEADD+1~, MAKEADD+3*, DELTEXT+1~, WHATYPE~, WHATITLE~ |
Y | LOOKUP+5*, LOOKUP+8*, LOOKUP+15*, LOOKUP+17*, LOOKUP+19*, LOOKUP+27*, LOOKUP+30*, LOOKUP+31*, LOOKUP+34*, LOOKUP+35 , LOOKUP+41*, LOOKUP+43, LOOKUP+44, LOOKUP+45*, LOOKUP+46, LOOKUP+47, LOOKUP+48, ILOC+1~, ILOC+3, MAKEADD+1~ , MAKEADD+5, DELTEXT+1~, WHATYPE+3~, WHATYPX, WHATITLE+3~, WHATITX |