Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RMPRPIXZ

RMPRPIXZ.m

Go to the documentation of this file.
  1. RMPRPIXZ ;HINCIO/ODJ - MISC. ;3/8/01
  1. ;;3.0;PROSTHETICS;**61**;Feb 09, 1996
  1. Q
  1. ;
  1. ; Some miscellaneous routines to be used for testing only
  1. ; NOT FOR GENERAL USE
  1. ;
  1. ;
  1. ; Clear down new PIP files
  1. ; Only use if need to re-run the old to new PIP file conversion
  1. ; utility in RMPRPIUG
  1. KILL N FIL,S,P62,I,P60
  1. ;
  1. ; Restore pointers to 661.2 in file 660
  1. S I=0
  1. F S I=$O(^RMPR(661.63,I)) Q:'+I D
  1. . S S=^RMPR(661.63,I,0)
  1. . S P62=$P(S,"^",3)
  1. . S P60=$P(S,"^",2)
  1. . S $P(^RMPR(660,P60,1),"^",5)=P62
  1. . Q
  1. ;
  1. ; Clear down new files
  1. F FIL=661.11,661.4,661.41,661.5,661.6,661.63,661.69,661.7,661.9 D
  1. . S S=^RMPR(FIL,0)
  1. . S $P(S,"^",3)=0,$P(S,"^",4)=0
  1. . K ^RMPR(FIL)
  1. . S ^RMPR(FIL,0)=S
  1. . Q
  1. Q
  1. ;
  1. ; Make all Locations start with 'A'
  1. ALOC N NM,IEN,RMPR,RMPRE,FIL
  1. F FIL=661.3,661.5 D
  1. . S IEN=0
  1. . F S IEN=$O(^RMPR(FIL,IEN)) Q:'+IEN D
  1. .. S NM=$P(^RMPR(FIL,IEN,0),"^",1)
  1. .. W !,NM
  1. .. K RMPR
  1. .. S RMPR(FIL,IEN_",",.01)="A"_NM
  1. .. D FILE^DIE("","RMPR","RMPRE")
  1. .. Q
  1. . Q
  1. Q
  1. ;
  1. ; Get rid of 1st char.
  1. REMA N NM,IEN,RMPR,RMPRE,FIL
  1. F FIL=661.3,661.5 D
  1. . S IEN=0
  1. . F S IEN=$O(^RMPR(FIL,IEN)) Q:'+IEN D
  1. .. S NM=$P(^RMPR(FIL,IEN,0),"^",1)
  1. .. W !,NM
  1. .. K RMPR
  1. .. S RMPR(FIL,IEN_",",.01)=$E(NM,2,$L(NM))
  1. .. D FILE^DIE("","RMPR","RMPRE")
  1. .. Q
  1. . Q
  1. Q