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

CLASSHR.m

Go to the documentation of this file.
  1. CLASSHR ;$O DPT B X-REF [ 02/20/03  2:45 PM ]
  1.  ;This routine will $o thru B X-ref of name
  1.  ;set counter = for each  print each name - then start again
  1.  ;
  1. START ;
  1.  S TOTALCT=0
  1.  ;S GRANDTOT=0
  1.  ;D HEADING
  1.  S D="" F  S D=$O(^DPT("B",D)) I D'="" S TOTALCT=TOTALCT+1 Q:D=""
  1.  ;WRITE LAST NAME ACCESSED & GRAND TOTAL COUNT
  1.  ;W !!,"LAST PATIENT DFN ACCESSED = ",LASTNAME
  1.  ;W !," TOTAL COUNT-ALL RECORDS: ",TOTALCT
  1.  K D,TOTALCT
  1.  Q
  1. PRINT ;GET DFN FOR NAME TO PRINT
  1.  ;S X="" F  S X=$O(^CLASSDMO("B",D,X)) Q:X'=+X  S GRANDTOT=GRANDTOT+1 D PRINT1
  1.  ;Q
  1. PRINT1 ;PRINT ACTUAL NAME
  1.  ;W !?5,TOTALCT,?15,$P(^CLASSDMO(X,0),U)
  1.  ;W ?40,X,?45,$P(^CLASSDMO(X,0),U,10)
  1.  ;S LASTNAME=X
  1.  ;S TONISEX=$P(^CLASSDMO(X,0),U,8)
  1.  ;W ?60,TONISEX
  1.  ;I $D(^CLASSDMO(X,1,0)) D HOBBIES
  1.  ;I $D(HOBBPRNT) W ?65,HOBBPRNT
  1.  ;I TOTALCT>5 D HEADING S TOTALCT=0
  1.  ;Q
  1.  ;
  1. HEADING ;Print Heading
  1.  ;W !!,"EMPLOYEE: ",?15,"NAME",?39,"DFN",?45,"SSN",?60,"SEX",?65,"1 HOBBY",!
  1.  ;Q
  1.  ;
  1. HOBBIES ;If Hobbies Exist - get one hobby dfn only
  1.  ;S HOB1=""
  1.  ;F  S HOB1=$O(^CLASSDMO(X,1,"B",HOB1)) Q:HOB1=""  D
  1.  . ;S HOBDFN="" F  S HOBDFN=$O(^CLASSDMO(X,1,"B",HOB1,0)) HOBDFN'=+HOBDFN  S HOBBY=$P(^CLASSDMO(X,1,HOBDFN,0),U),HOBBPRNT=$P(^CLASSHOB(HOBBY,0),U) Q
  1.  ;Q