- 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 Feb 19, 2025@00:14:12 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