Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.3 KB
|
Rev | Line | |
---|
[628] | 1 | DGPFLMT ;ALB/RBS - PRF TRANSMISSION ERRORS LM SCREEN ; 4/27/05 12:00pm
|
---|
| 2 | ;;5.3;Registration;**650**;Aug 13, 1993;Build 3
|
---|
| 3 | ;
|
---|
| 4 | ;- no direct entry
|
---|
| 5 | QUIT
|
---|
| 6 | ;
|
---|
| 7 | ;
|
---|
| 8 | EN ;Main entry point for DGPF TRANSMISSION ERRORS option.
|
---|
| 9 | ;
|
---|
| 10 | ; Input: None
|
---|
| 11 | ; Output: None
|
---|
| 12 | ;
|
---|
| 13 | ;invoke DGPF TRANSMISSION ERRORS list template
|
---|
| 14 | N DGSRTBY
|
---|
| 15 | ;- sort list (default="N"=Patient Name, also "E"=Date Error Received)
|
---|
| 16 | S DGSRTBY="N"
|
---|
| 17 | ;
|
---|
| 18 | D EN^VALM("DGPF TRANSMISSION ERRORS")
|
---|
| 19 | Q
|
---|
| 20 | ;
|
---|
| 21 | ;
|
---|
| 22 | HDR ;Header Code
|
---|
| 23 | N DGHDR
|
---|
| 24 | S DGHDR="List Sorted By: "_$S($G(DGSRTBY)="N":"Patient Name",1:"Date Error Received")
|
---|
| 25 | S VALMHDR(1)=""
|
---|
| 26 | S VALMHDR(1)=$$SETSTR^VALM1(DGHDR,VALMHDR(1),1,$L(DGHDR))
|
---|
| 27 | Q
|
---|
| 28 | ;
|
---|
| 29 | ;
|
---|
| 30 | INIT ;Init variables and list array
|
---|
| 31 | D BLD
|
---|
| 32 | Q
|
---|
| 33 | ;
|
---|
| 34 | ;
|
---|
| 35 | BLD ;Build HL7 Transmission Log "RJ" Rejected Status message list
|
---|
| 36 | D CLEAN^VALM10
|
---|
| 37 | K DGARY,VALMHDR
|
---|
| 38 | K ^TMP("DGPFSORT",$J)
|
---|
| 39 | ;
|
---|
| 40 | ;- init array that will contain list of items to display
|
---|
| 41 | S DGARY="DGPFLMT"
|
---|
| 42 | K ^TMP(DGARY,$J)
|
---|
| 43 | ;
|
---|
| 44 | ;build header area
|
---|
| 45 | D HDR
|
---|
| 46 | ;
|
---|
| 47 | ;init # of lines in list
|
---|
| 48 | S VALMCNT=0
|
---|
| 49 | ;
|
---|
| 50 | ;- call to build list area for error messages
|
---|
| 51 | D EN^DGPFLMT1(DGARY,DGSRTBY,.VALMCNT)
|
---|
| 52 | Q
|
---|
| 53 | ;
|
---|
| 54 | ;
|
---|
| 55 | HELP ;Help Code
|
---|
| 56 | N X
|
---|
| 57 | S X="?" D DISP^XQORM1 W !!
|
---|
| 58 | Q
|
---|
| 59 | ;
|
---|
| 60 | ;
|
---|
| 61 | EXIT ;Exit Code
|
---|
| 62 | D CLEAN^VALM10
|
---|
| 63 | D CLEAR^VALM1
|
---|
| 64 | K ^TMP("DGPFSORT",$J)
|
---|
| 65 | K ^TMP(DGARY,$J)
|
---|
| 66 | K DGARY
|
---|
| 67 | K DGSRTBY
|
---|
| 68 | Q
|
---|
| 69 | ;
|
---|
| 70 | ;
|
---|
| 71 | EXPND ;Expand Code
|
---|
| 72 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.