TIUPS244 ; BP/AJB - Mobile Elec. Doc ; 03/05/09
;;1.0;TEXT INTEGRATION UTILITIES;**244**;Jun 20, 1997;Build 9
;
Q
SETUP ;
N TIUDFL,TIUERR,TIUFPRIV,TIUFLDR,TIUNAME,TIUX,TIUY
S TIUDFL="<Default Value>",TIUFPRIV=1
S TIUNAME="TIU MED HSTYPE"
D
. N DA,DIK S DA=+$$LU(8989.51,TIUNAME),DIK="^XTV(8989.51," D:+DA ^DIK
D
. Q:+$$LU(8989.51,TIUNAME)
. N TIU,TIUIEN,TIUMSG
. S TIU(8989.51,"+1,",.01)=TIUNAME
. S TIU(8989.51,"+1,",.02)="Health Summary Type for MED"
. S TIU(8989.51,"+1,",.03)=0
. S TIU(8989.51,"+1,",1.1)="F"
. D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
. F TIUX="1^200","2^49","3^4","4^4.2" D
. . N TIU,TIUIEN,TIUMSG
. . S TIUIEN=+$$LU(8989.51,TIUNAME)
. . S TIU(8989.513,"+2,"_TIUIEN_",",.01)=+TIUX
. . S TIU(8989.513,"+2,"_TIUIEN_",",.02)=$P(TIUX,U,2)
. . D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
;
S TIUNAME="MED NOTE IMPORT" D
. Q:+$$LU(101.15,TIUNAME)
. N TIU,TIUIEN,TIUMSG
. S TIU(101.15,"+1,",.01)=TIUNAME
. S TIU(101.15,"+1,",.02)="{1730C986-9BEE-4DE5-9FDD-BE4851823F67}"
. D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
;
S TIUFLDR=+$$LU(8927,"Shared Templates","X")
Q:'+TIUFLDR
;
S TIUNAME="Mobile Electronic Documentation" D
. Q:+$$LU(8927,TIUNAME)
. N TIU,TIUIEN,TIUMSG
. S TIU(8927,"+1,",.01)=TIUNAME
. S TIU(8927,"+1,",.03)="C"
. S TIU(8927,"+1,",.04)="A"
. S TIU(8927,"+1,",.05)=0
. S TIU(8927,"+1,",.08)=0
. S TIU(8927,"+1,",.09)=0
. S TIU(8927,"+1,",.10)=0
. S TIU(8927,"+1,",.11)=0
. S TIU(8927,"+1,",.12)=0
. S TIU(8927,"+1,",.13)=0
. S TIU(8927,"+1,",.14)=0
. S TIU(8927,"+1,",.16)=0
. D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
. S TIUX=TIUIEN(1),TIUY="",TIUY=($O(^TIU(8927,1,10,"B",TIUY),-1)+1)
. S TIU(8927.03,"+2,"_TIUFLDR_",",.01)=TIUY
. S TIU(8927.03,"+2,"_TIUFLDR_",",.02)=TIUX
. D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
;
S TIUNAME="Import M.E.D. Notes" D
. Q:+$$LU(8927,TIUNAME)
. N TIU,TIUCO,TIUIEN,TIUMSG
. S TIU(8927,"+1,",.01)=TIUNAME
. S TIU(8927,"+1,",.03)="T"
. S TIU(8927,"+1,",.04)="A"
. S TIU(8927,"+1,",.05)=0
. S TIU(8927,"+1,",.08)=0
. S TIU(8927,"+1,",.09)=0
. S TIU(8927,"+1,",.10)=0
. S TIU(8927,"+1,",.11)=0
. S TIU(8927,"+1,",.12)=0
. S TIU(8927,"+1,",.13)=0
. S TIU(8927,"+1,",.14)=0
. S TIU(8927,"+1,",.16)=0
. S TIUCO=+$$LU(101.15,"MED NOTE IMPORT") Q:'+TIUCO
. S TIU(8927,"+1,",.17)=TIUCO
. D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
. S TIUY="",TIUY=($O(^TIU(8927,TIUX,10,"B",TIUY),-1)+1)
. S TIU(8927.03,"+2,"_TIUX_",",.01)=TIUY
. S TIU(8927.03,"+2,"_TIUX_",",.02)=TIUIEN(1)
. D UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
;
EXIT Q
;
LU(FILE,NAME,FLAGS,SCREEN,INDEXES) ;
Q $$FIND1^DIC(FILE,"",$G(FLAGS),NAME,$G(INDEXES),$G(SCREEN),"TIUERR")
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPS244 2744 printed Dec 13, 2024@02:44:20 Page 2
TIUPS244 ; BP/AJB - Mobile Elec. Doc ; 03/05/09
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**244**;Jun 20, 1997;Build 9
+2 ;
+3 QUIT
SETUP ;
+1 NEW TIUDFL,TIUERR,TIUFPRIV,TIUFLDR,TIUNAME,TIUX,TIUY
+2 SET TIUDFL="<Default Value>"
SET TIUFPRIV=1
+3 SET TIUNAME="TIU MED HSTYPE"
+4 Begin DoDot:1
+5 NEW DA,DIK
SET DA=+$$LU(8989.51,TIUNAME)
SET DIK="^XTV(8989.51,"
if +DA
DO ^DIK
End DoDot:1
+6 Begin DoDot:1
+7 if +$$LU(8989.51,TIUNAME)
QUIT
+8 NEW TIU,TIUIEN,TIUMSG
+9 SET TIU(8989.51,"+1,",.01)=TIUNAME
+10 SET TIU(8989.51,"+1,",.02)="Health Summary Type for MED"
+11 SET TIU(8989.51,"+1,",.03)=0
+12 SET TIU(8989.51,"+1,",1.1)="F"
+13 DO UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
+14 FOR TIUX="1^200","2^49","3^4","4^4.2"
Begin DoDot:2
+15 NEW TIU,TIUIEN,TIUMSG
+16 SET TIUIEN=+$$LU(8989.51,TIUNAME)
+17 SET TIU(8989.513,"+2,"_TIUIEN_",",.01)=+TIUX
+18 SET TIU(8989.513,"+2,"_TIUIEN_",",.02)=$PIECE(TIUX,U,2)
+19 DO UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
End DoDot:2
End DoDot:1
+20 ;
+21 SET TIUNAME="MED NOTE IMPORT"
Begin DoDot:1
+22 if +$$LU(101.15,TIUNAME)
QUIT
+23 NEW TIU,TIUIEN,TIUMSG
+24 SET TIU(101.15,"+1,",.01)=TIUNAME
+25 SET TIU(101.15,"+1,",.02)="{1730C986-9BEE-4DE5-9FDD-BE4851823F67}"
+26 DO UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
End DoDot:1
+27 ;
+28 SET TIUFLDR=+$$LU(8927,"Shared Templates","X")
+29 if '+TIUFLDR
QUIT
+30 ;
+31 SET TIUNAME="Mobile Electronic Documentation"
Begin DoDot:1
+32 if +$$LU(8927,TIUNAME)
QUIT
+33 NEW TIU,TIUIEN,TIUMSG
+34 SET TIU(8927,"+1,",.01)=TIUNAME
+35 SET TIU(8927,"+1,",.03)="C"
+36 SET TIU(8927,"+1,",.04)="A"
+37 SET TIU(8927,"+1,",.05)=0
+38 SET TIU(8927,"+1,",.08)=0
+39 SET TIU(8927,"+1,",.09)=0
+40 SET TIU(8927,"+1,",.10)=0
+41 SET TIU(8927,"+1,",.11)=0
+42 SET TIU(8927,"+1,",.12)=0
+43 SET TIU(8927,"+1,",.13)=0
+44 SET TIU(8927,"+1,",.14)=0
+45 SET TIU(8927,"+1,",.16)=0
+46 DO UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
+47 SET TIUX=TIUIEN(1)
SET TIUY=""
SET TIUY=($ORDER(^TIU(8927,1,10,"B",TIUY),-1)+1)
+48 SET TIU(8927.03,"+2,"_TIUFLDR_",",.01)=TIUY
+49 SET TIU(8927.03,"+2,"_TIUFLDR_",",.02)=TIUX
+50 DO UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
End DoDot:1
+51 ;
+52 SET TIUNAME="Import M.E.D. Notes"
Begin DoDot:1
+53 if +$$LU(8927,TIUNAME)
QUIT
+54 NEW TIU,TIUCO,TIUIEN,TIUMSG
+55 SET TIU(8927,"+1,",.01)=TIUNAME
+56 SET TIU(8927,"+1,",.03)="T"
+57 SET TIU(8927,"+1,",.04)="A"
+58 SET TIU(8927,"+1,",.05)=0
+59 SET TIU(8927,"+1,",.08)=0
+60 SET TIU(8927,"+1,",.09)=0
+61 SET TIU(8927,"+1,",.10)=0
+62 SET TIU(8927,"+1,",.11)=0
+63 SET TIU(8927,"+1,",.12)=0
+64 SET TIU(8927,"+1,",.13)=0
+65 SET TIU(8927,"+1,",.14)=0
+66 SET TIU(8927,"+1,",.16)=0
+67 SET TIUCO=+$$LU(101.15,"MED NOTE IMPORT")
if '+TIUCO
QUIT
+68 SET TIU(8927,"+1,",.17)=TIUCO
+69 DO UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
+70 SET TIUY=""
SET TIUY=($ORDER(^TIU(8927,TIUX,10,"B",TIUY),-1)+1)
+71 SET TIU(8927.03,"+2,"_TIUX_",",.01)=TIUY
+72 SET TIU(8927.03,"+2,"_TIUX_",",.02)=TIUIEN(1)
+73 DO UPDATE^DIE("","TIU","TIUIEN","TIUMSG")
End DoDot:1
+74 ;
EXIT QUIT
+1 ;
LU(FILE,NAME,FLAGS,SCREEN,INDEXES) ;
+1 QUIT $$FIND1^DIC(FILE,"",$GET(FLAGS),NAME,$GET(INDEXES),$GET(SCREEN),"TIUERR")
