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

DGPFLMT.m

Go to the documentation of this file.
  1. DGPFLMT ;ALB/RBS - PRF TRANSMISSION ERRORS LM SCREEN ; 4/27/05 12:00pm
  1. ;;5.3;Registration;**650,960**;Aug 13, 1993;Build 22
  1. ; Last Edited: SHRPE/SGM - May 30, 2018 11:01
  1. ;- no direct entry
  1. QUIT
  1. ;
  1. ;
  1. EN ;Main entry point for DGPF TRANSMISSION ERRORS option.
  1. ;
  1. ; Input: None
  1. ; Output: None
  1. ;
  1. ;invoke DGPF TRANSMISSION ERRORS list template
  1. N DGSORT,DGSRTBY
  1. S DGSRTBY="N"
  1. Q:'$$PROMPT
  1. ;
  1. D EN^VALM("DGPF TRANSMISSION ERRORS")
  1. Q
  1. ;
  1. ;
  1. HDR ;Header Code
  1. N X,Y
  1. S Y=$S($G(DGSORT("BY"))="N":"Patient Name",1:"Date Error Received")
  1. S X="List Sorted By: "_Y
  1. S VALMHDR(2)=""
  1. S VALMHDR(2)=$$SETSTR^VALM1(X,VALMHDR(2),1,$L(X))
  1. S Y=$G(DGSORT("FLAG")) S:Y="" Y="A"
  1. S X="Active, Locally-Owned, Category I Flag"
  1. S X=X_$S(Y="A":"s: ALL",1:": "_$P(Y,U,2))
  1. S VALMHDR(1)=""
  1. S VALMHDR(1)=$$SETSTR^VALM1(X,VALMHDR(1),1,$L(X))
  1. Q
  1. ;
  1. ;
  1. INIT ;Init variables and list array
  1. D BLD
  1. Q
  1. ;
  1. ;
  1. BLD ;Build HL7 Transmission Log "RJ" Rejected Status message list
  1. D CLEAN^VALM10
  1. K DGARY,VALMHDR
  1. S:$G(DGSRTBY)="" DGSRTBY="N" S DGSORT("BY")=DGSRTBY
  1. K ^TMP("DGPFSORT",$J)
  1. ;
  1. ;- init array that will contain list of items to display
  1. S DGARY="DGPFLMT"
  1. K ^TMP(DGARY,$J)
  1. ;
  1. ;build header area
  1. D HDR
  1. ;
  1. ;init # of lines in list
  1. S VALMCNT=0
  1. ;
  1. ;- call to build list area for error messages
  1. D EN^DGPFLMT1(DGARY,DGSORT("BY"),.VALMCNT)
  1. Q
  1. ;
  1. ;
  1. HELP ;Help Code
  1. N X
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. ;
  1. EXIT ;Exit Code
  1. D CLEAN^VALM10
  1. D CLEAR^VALM1
  1. K ^TMP("DGPFSORT",$J)
  1. K ^TMP(DGARY,$J)
  1. K DGARY
  1. Q
  1. ;
  1. ;
  1. EXPND ;Expand Code
  1. Q
  1. ;
  1. PROMPT() ; ----- prompts before LM invoked
  1. ; Set local variables to be available throughout the LM actions
  1. ; I '$$PROMPT then quit the Option
  1. ; DGSORT("BY") = "N"
  1. ; DGSORT("FLAG") = "A" or variable_pointer^flagname
  1. ; DGSORT("STAT") = 1 - active assignments
  1. ; DGSORT("OWN") = 1 - OWNER SITE is from local facility
  1. ;
  1. N X,Y
  1. ;-- sort list (default="N"=Patient Name, also "E"=Date Error Received)
  1. S DGSORT("BY")=DGSRTBY
  1. ;
  1. ;-- prompt for all flags or single flag
  1. ;-- prompt for selection of a single flag or all flags
  1. ; DGSORT("FLAG") = "A" or a flag variable pointer
  1. ; list (A)ll flags if user selects Both Category's
  1. S X=$P($$FLAG^DGPFUT7,U) I X'="A",X'="S" Q 0
  1. S DGSORT("FLAG")=X
  1. ;
  1. ; if single flag, now prompt for name of flag
  1. I DGSORT("FLAG")="S" D I X<1 Q 0
  1. . S X=$$ONEFLAG^DGPFUT7("I",0) I X>0 S DGSORT("FLAG")=X
  1. . Q
  1. ;
  1. ;-- setup filters, allow only active, locally owned assignments
  1. S DGSORT("OWN")=1
  1. S DGSORT("STAT")=1
  1. ;
  1. Q 1