DGPFLMA ;ALB/KCL - PRF ASSIGNMENT LISTMAN SCREEN ; 4/24/03 4:34pm
;;5.3;Registration;**425**;Aug 13,1993
;
;
EN ;Main entry point for DGPF RECORD FLAG ASSIGNMENT option.
;
; Input: None
; Output: None
;
;display wait msg to user
D WAIT^DICD
;
;invoke list manager and load list template
D EN^VALM("DGPF RECORD FLAG ASSIGNMENT")
Q
;
;
HDR ;Header Code
S VALMHDR(1)="Patient: No Patient Selected"
S VALMHDR(2)=""
Q
;
;
INIT ;Init variables and list array
N DGTEXT
S DGTEXT=" A patient has not been selected. Please select a patient."
D SET^VALM10(1,"")
D SET^VALM10(2,DGTEXT)
D CNTRL^VALM10(2,4,$L(DGTEXT),$G(IOINHI),$G(IOINORM))
S VALMCNT=2
Q
;
;
HELP ;Help Code
N X
S X="?" D DISP^XQORM1 W !!
Q
;
;
EXIT ;Exit Code
K DGDFN
K DGPFA
K DGPFAH
D CLEAN^VALM10
D CLEAR^VALM1
Q
;
;
EXPND ;Expand Code
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPFLMA 894 printed Oct 16, 2024@18:48:47 Page 2
DGPFLMA ;ALB/KCL - PRF ASSIGNMENT LISTMAN SCREEN ; 4/24/03 4:34pm
+1 ;;5.3;Registration;**425**;Aug 13,1993
+2 ;
+3 ;
EN ;Main entry point for DGPF RECORD FLAG ASSIGNMENT option.
+1 ;
+2 ; Input: None
+3 ; Output: None
+4 ;
+5 ;display wait msg to user
+6 DO WAIT^DICD
+7 ;
+8 ;invoke list manager and load list template
+9 DO EN^VALM("DGPF RECORD FLAG ASSIGNMENT")
+10 QUIT
+11 ;
+12 ;
HDR ;Header Code
+1 SET VALMHDR(1)="Patient: No Patient Selected"
+2 SET VALMHDR(2)=""
+3 QUIT
+4 ;
+5 ;
INIT ;Init variables and list array
+1 NEW DGTEXT
+2 SET DGTEXT=" A patient has not been selected. Please select a patient."
+3 DO SET^VALM10(1,"")
+4 DO SET^VALM10(2,DGTEXT)
+5 DO CNTRL^VALM10(2,4,$LENGTH(DGTEXT),$GET(IOINHI),$GET(IOINORM))
+6 SET VALMCNT=2
+7 QUIT
+8 ;
+9 ;
HELP ;Help Code
+1 NEW X
+2 SET X="?"
DO DISP^XQORM1
WRITE !!
+3 QUIT
+4 ;
+5 ;
EXIT ;Exit Code
+1 KILL DGDFN
+2 KILL DGPFA
+3 KILL DGPFAH
+4 DO CLEAN^VALM10
+5 DO CLEAR^VALM1
+6 QUIT
+7 ;
+8 ;
EXPND ;Expand Code
+1 QUIT
