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

DGPFLMD1.m

Go to the documentation of this file.
  1. DGPFLMD1 ;ALB/RPM - PRF DISPLAY ACTIVE FLAG ASSIGNMENTS LM ; 5/18/04 9:33am
  1. ;;5.3;Registration;**425,554**;Aug 13, 1993
  1. ;
  1. EN(DGARRY,DGPFAPI,DGCNT) ;
  1. ;
  1. N DGFLG
  1. N DGI
  1. N DGLINE
  1. N DGNARR
  1. N DGNUM
  1. N DGTEXT
  1. ;
  1. S (DGNUM,DGFLG,DGLINE)=0
  1. F S DGFLG=$O(DGPFAPI(DGFLG)) Q:'DGFLG D
  1. . S DGNUM=DGNUM+1
  1. . ;
  1. . ;blank line(s)
  1. . F DGI=1:1:$S(DGNUM>1:2,1:1) D
  1. . . S DGLINE=DGLINE+1
  1. . . D SET^DGPFLMU1(DGARRY,DGLINE," ",1,,,.DGCNT)
  1. . ;
  1. . ;Flag Name
  1. . S DGLINE=DGLINE+1
  1. . S DGTEXT=DGNUM_"."
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,1,IORVON,IORVOFF,.DGCNT)
  1. . S DGTEXT="Flag Name: "
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,5,,,.DGCNT)
  1. . S DGTEXT="<"_$P(DGPFAPI(DGFLG,"FLAG"),U,2)_">"
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,16,IORVON,IORVOFF,.DGCNT)
  1. . ;
  1. . ;Category
  1. . S DGLINE=DGLINE+1
  1. . S DGTEXT="Category: "_$P(DGPFAPI(DGFLG,"CATEGORY"),U,2)
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,6,,,.DGCNT)
  1. . ;
  1. . ;Flag Type
  1. . S DGLINE=DGLINE+1
  1. . S DGTEXT="Type: "_$P(DGPFAPI(DGFLG,"FLAGTYPE"),U,2)
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,10,,,.DGCNT)
  1. . ;
  1. . ;Assignment Narrative
  1. . S DGLINE=DGLINE+1
  1. . D SET^DGPFLMU1(DGARRY,DGLINE," ",1,,,.DGCNT)
  1. . S DGLINE=DGLINE+1
  1. . S DGTEXT="Assignment Narrative:"
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,1,IORVON,IORVOFF,.DGCNT)
  1. . S DGNARR=0
  1. . F S DGNARR=$O(DGPFAPI(DGFLG,"NARR",DGNARR)) Q:'DGNARR D
  1. . . S DGLINE=DGLINE+1
  1. . . S DGTEXT=$G(DGPFAPI(DGFLG,"NARR",DGNARR,0))
  1. . . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,1,,,.DGCNT)
  1. . ;
  1. . ;blank line
  1. . S DGLINE=DGLINE+1
  1. . D SET^DGPFLMU1(DGARRY,DGLINE," ",1,,,.DGCNT)
  1. . ;
  1. . ;assignment details header
  1. . S DGLINE=DGLINE+1
  1. . S DGTEXT="Assignment Details:"
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,1,IORVON,IORVOFF,.DGCNT)
  1. . ;
  1. . ;Assignment Date
  1. . S DGLINE=DGLINE+1
  1. . S DGTEXT="Initial Assignment: "_$$FMTE^XLFDT($P(DGPFAPI(DGFLG,"ASSIGNDT"),U),"D")
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,3,,,.DGCNT)
  1. . ;
  1. . ;Approved By
  1. . S DGLINE=DGLINE+1
  1. . S DGTEXT="Approved By: "_$P(DGPFAPI(DGFLG,"APPRVBY"),U,2)
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,10,,,.DGCNT)
  1. . ;
  1. . ;Review Date
  1. . S DGLINE=DGLINE+1
  1. . S DGTEXT="Next Review Date: "_$S($P(DGPFAPI(DGFLG,"REVIEWDT"),U)>0:$$FMTE^XLFDT($P(DGPFAPI(DGFLG,"REVIEWDT"),U),"D"),1:"N/A")
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,5,,,.DGCNT)
  1. . ;
  1. . ;Owner Site
  1. . S DGLINE=DGLINE+1
  1. . S DGTEXT="Owner Site: "_$P(DGPFAPI(DGFLG,"OWNER"),U,2)
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,11,,,.DGCNT)
  1. . ;
  1. . ;Originating Site
  1. . S DGLINE=DGLINE+1
  1. . S DGTEXT="Originating Site: "_$P(DGPFAPI(DGFLG,"ORIGSITE"),U,2)
  1. . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,5,,,.DGCNT)
  1. . ;
  1. . ;Progress Note Linked - only defined if Owner of assignment
  1. . I $D(DGPFAPI(DGFLG,"TIULINK")) D
  1. . . S DGLINE=DGLINE+1
  1. . . S DGTEXT="Progress Note Linked: "_$S(+$P(DGPFAPI(DGFLG,"TIULINK"),U):"YES",1:"NO")
  1. . . D SET^DGPFLMU1(DGARRY,DGLINE,DGTEXT,1,,,.DGCNT)
  1. ;
  1. Q