- 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 Jan 18, 2025@03:32:21 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