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

PXTTEDL.m

Go to the documentation of this file.
  1. PXTTEDL ;ALB/TH - GET AND PRINT EDUCATION SUBTOPIC;11/21/08
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**193**;Aug 12, 1996;Build 2
  1. ;
  1. EN ; Entry point
  1. Q:'$D(^AUTTEDT(D0,10,0))
  1. N PXTTEDL,PXTERR,X,SEQ,SUBTOPIC,X1,DATA
  1. ; Get SEQUENCE and SUBTOPIC from Node 10
  1. D GETS^DIQ(9999999.09,D0_",","10*","E","PXTTEDL","PXTERR")
  1. I $D(PXTERR) Q
  1. S (X,SEQ,SUBTOPIC)=""
  1. F S X=$O(PXTTEDL(9999999.091001,X)) Q:'X D
  1. . S SEQ=PXTTEDL(9999999.091001,X,3,"E")
  1. . ; If SEQENCE is null, then set to 0
  1. . I SEQ="" S SEQ=0
  1. . S SUBTOPIC=PXTTEDL(9999999.091001,X,.01,"E")
  1. . S PXTTEDL("P",SEQ,X)=$S(SEQ=0:"",1:SEQ)_U_SUBTOPIC
  1. ; Print SEQUENCE and SUBTOPIC
  1. S (SEQ,X1,DATA)=""
  1. F S SEQ=$O(PXTTEDL("P",SEQ)) Q:SEQ="" D
  1. . F S X1=$O(PXTTEDL("P",SEQ,X1)) Q:X1="" D
  1. . . S DATA=PXTTEDL("P",SEQ,X1)
  1. . . W ?12,$P(DATA,U),?17,$E($P(DATA,U,2),1,60),!
  1. Q