Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPRT1.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPRT1.m
r628 r636 1 1 RMPRPRT1 ;PHX/HNB-CONTINUATION OF PRINT 2319 ;10/19/1993 2 ;;3.0;PROSTHETICS;**10,99 ,137,141**;Feb 09, 1996;Build 52 ;;3.0;PROSTHETICS;**10,99**;Feb 09, 1996 3 3 ;CALLED BY END^RMPRPRT 4 4 ;VARIABLES REQUIRED: R5 - A STRING ARRAY HOLDING PATIENT'S PROSTHETIC 5 5 ; DISABILITY CODE INFORMATION 6 N RMPRMERG S RMPRMERG=07 I $D(^XDRM("B",RMPRDFN_";DPT(")) D8 . S RMPRMERG=$O(^XDRM("B",RMPRDFN_";DPT(",RMPRMERG)) Q:RMPRMERG=""9 . S RMPRMERG=+^XDRM(RMPRMERG,0)10 6 I $Y>(IOSL-6) W @IOF D HDR^RMPRPRT 11 7 W !!,"PSC Issue Card: " S J=0 W ! … … 47 43 S RA="" 48 44 F S RA=$O(^RMPR(660,"AC",RMPRDFN,RA)) Q:RA'>0 S AN="" F S AN=$O(^RMPR(660,"AC",RMPRDFN,RA,AN)) Q:AN'>0 S RC=RC+1,Y=^RMPR(660,AN,0) D PRT I $Y>(IOSL-6) W @IOF D HDR^RMPRPRT 49 S RA=""50 I RMPRMERG D51 . F S RA=$O(^RMPR(660,"AC",RMPRMERG,RA)) Q:RA'>0 S AN="" F S AN=$O(^RMPR(660,"AC",RMPRMERG,RA,AN)) Q:AN'>0 S RC=RC+1,Y=^RMPR(660,AN,0) D PRT I $Y>(IOSL-6) W @IOF D HDR^RMPRPRT52 45 I RC=0 W !,"No Appliances or Repairs exist for this veteran!",!! 53 46 E W !!,"End of Appliance/Repair records for this veteran!",!!," *Historical Item" … … 82 75 K RMPRLPRO 83 76 I VEN'="" W ?33,$E(VEN,1,10) 84 W :$G(STA)'="" ?45,$P($G(^DIC(4,STA,99)),U,1) W?50,$E(SN,1,10),?62,DEL,?72,$J($S(CST'="":CST,$P(Y,U,17):$P(Y,U,17),1:""),0,2)77 W ?45,$P(^DIC(4,STA,99),U,1),?50,$E(SN,1,10),?62,DEL,?72,$J($S(CST'="":CST,$P(Y,U,17):$P(Y,U,17),1:""),0,2) 85 78 W:REM]"" !,?5,"REMARKS: ",REM I $Y+6>IOSL D HDR^RMPRPRT,HDRH 86 79 S (DATE,TYPE,QTY,VEN,TRANS,TRANS1,STA,SN,DEL,CST,FRM,REM)=""
Note:
See TracChangeset
for help on using the changeset viewer.