RMPOLZU ;EDS/PAK - HO LETTERS - Update Post Letter Transaction file ;7/24/98
;;3.0;PROSTHETICS;**29**;Feb 09, 1996
;
FILE(DFN,LET,L) ;Update file 665.4 with Patient Letter
;
;This is a function that sets up an entry in file 665.4.
;If it succeeds, it returns ONE.
;If it fails, it returns an error_number;error_type.
;
; I/P : DFN = Pointer to the Patient file (# 2)
; L = Prosthetics Letter IEN
; LET = Name of word processing style text array to use in MOVE command
;
;Create Entry
N DA,DD,DIC,DIK,DINUM,DLAYGO,DO,IEN,X,Y,DIE,DR,DTOUT
S DIC="^RMPR(665.4,",DIC(0)="L",X=DFN,DLAYGO=665.4
D FILE^DICN
;
S DA=+Y
I DA<1 Q "1;Could not create a transaction entry for Patient #"_DFN_"."
L +^RMPR(665.4,DA):0
;
;Update fields .01, 2, 4 & 6
S DA=+Y,DR=".01////"_DFN_";1////"_L_";2////"_DT_";4////"_DUZ_";6////"_RMPO("STA")
S DIE=665.4 D ^DIE
I $D(DTOUT) Q "1;Could not complete a transaction entry for Patient #"_DFN_"."
;
;Move in Word Processing Text
D WP^DIE(665.4,DA_",",3,"KZ",LET)
I $D(^TMP("DIERR",$J)) Q "1;Could not complete a transaction entry for Patient #"_DFN_"."
;
L -^RMPR(665.4,DA)
Q 0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPOLZU 1172 printed Dec 13, 2024@02:31:11 Page 2
RMPOLZU ;EDS/PAK - HO LETTERS - Update Post Letter Transaction file ;7/24/98
+1 ;;3.0;PROSTHETICS;**29**;Feb 09, 1996
+2 ;
FILE(DFN,LET,L) ;Update file 665.4 with Patient Letter
+1 ;
+2 ;This is a function that sets up an entry in file 665.4.
+3 ;If it succeeds, it returns ONE.
+4 ;If it fails, it returns an error_number;error_type.
+5 ;
+6 ; I/P : DFN = Pointer to the Patient file (# 2)
+7 ; L = Prosthetics Letter IEN
+8 ; LET = Name of word processing style text array to use in MOVE command
+9 ;
+10 ;Create Entry
+11 NEW DA,DD,DIC,DIK,DINUM,DLAYGO,DO,IEN,X,Y,DIE,DR,DTOUT
+12 SET DIC="^RMPR(665.4,"
SET DIC(0)="L"
SET X=DFN
SET DLAYGO=665.4
+13 DO FILE^DICN
+14 ;
+15 SET DA=+Y
+16 IF DA<1
QUIT "1;Could not create a transaction entry for Patient #"_DFN_"."
+17 LOCK +^RMPR(665.4,DA):0
+18 ;
+19 ;Update fields .01, 2, 4 & 6
+20 SET DA=+Y
SET DR=".01////"_DFN_";1////"_L_";2////"_DT_";4////"_DUZ_";6////"_RMPO("STA")
+21 SET DIE=665.4
DO ^DIE
+22 IF $DATA(DTOUT)
QUIT "1;Could not complete a transaction entry for Patient #"_DFN_"."
+23 ;
+24 ;Move in Word Processing Text
+25 DO WP^DIE(665.4,DA_",",3,"KZ",LET)
+26 IF $DATA(^TMP("DIERR",$JOB))
QUIT "1;Could not complete a transaction entry for Patient #"_DFN_"."
+27 ;
+28 LOCK -^RMPR(665.4,DA)
+29 QUIT 0
