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

STD6.m

Go to the documentation of this file.
  1. STD6 ;$O DPT B X-REF [ 06/26/2002 3:46 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. ;
  1. ;THIS IS A NEW LINE OFAND NOW EVERYODYI TYPEI IS CONSIN CODE WITH AN O INSERT COMMAND
  1. S TOTALCT=0
  1. S GRANDTOT=0
  1. D HEADING
  1. S D="" F S D=$O(^CLASSDMO("B",D)) I D'="" S TOTALCT=TOTALCT+1 Q:D=""!(D="JACKSON,MICHAEL") D PRINT
  1. ;WRITE LAST NAME ACCESSED & GRAND TOTAL COUNT
  1. W !!,"LAST PATIENT DFN ACCESSED = ",LASTNAME
  1. W !,"GRAND TOTAL COUNT-ALL RECORDS: ",GRANDTOT
  1. K D,X,TOTALCT,LASTNAME,HOB1,HOBDFN,HOBBY,TONISEX,GRANDTOT,HOBBPRNT
  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 !,?30,"************CLASS DEMO ROUNTINE************",!
  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)) Q:HOBDFN'=+HOBDFN S HOBBY=$P(^CLASSDMO(X,1,HOBDFN,0),U),HOBBPRNT=$P(^CLASSHOB(HOBBY,0),U) Q
  1. Q