source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFDPVU.m@ 1093

Last change on this file since 1093 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1PRCFDPVU ;WISC/LEM-PAYMENT ERROR PROCESSING CON'T ;9/7/94 15:20
2 ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 QUIT
5 ; No top level entry
6NUM S PONUM=$G(GECSDATA(2100.1,GECSDATA,.01,"E"))
7 ;S PONUM=$P(PONUM,"-",2),PATNUM=$E(PONUM,4,9),SITE=$E(PONUM,1,3)
8 ;S PARTIAL=$E(PONUM,10,11),PARTIAL=$$STRIP(PARTIAL)
9 ;I PARTIAL?1N.N S PARTIAL=+PARTIAL
10 ;S PONUM=SITE_"-"_PATNUM
11 S PONUM=$$STRIP(PONUM)
12 Q
13GET(DIC,X) ; Get Certified Invoice information for review
14 ;
15 ;S X=$P($G(GECSDATA(2100.1,GECSDATA,.01,"E")),"-",2) Q:X=""
16 S X=$P($G(X),"-",2) Q:X=""
17 ;
18 ;STOP HERE AND CHECK
19 K Y S DIC(0)="Z",D="F" D IX^DIC K DIC
20 Q
21STRIP(X) ; Strip trailing spaces
22 F LOOP=$L(X):-1:1 Q:$E(X,LOOP)'=" "
23 S VAR=$E(X,1,LOOP)
24 Q VAR
25PAUSE ; Pause screen when data is displayed
26 W !!,"Press 'RETURN' to continue: " R X:DTIME
27 I $D(IOF) W @IOF
28 Q
29PAUSE1 ; Pause screen when data is displayed
30 W !!,"Press 'RETURN' to start the display" R X:DTIME
31 I $D(IOF) W @IOF
32 Q
33REVIEW() ; Prompt user to review source document
34 S DIR(0)="Y",DIR("B")="YES"
35 S DIR("A")="Do you wish to display the source document"
36 S DIR("?")="Enter 'NO' or 'N' or '^' if the display is not necessary."
37 S DIR("?",1)="Enter 'YES' or 'Y' or 'RETURN' to display the source document."
38 D ^DIR K DIR S RESP=Y
39 I $D(Y(0)) S $P(RESP,U,2)=Y(0)
40 I $D(DIRUT) S $P(RESP,U,3)=DIRUT
41 Q RESP
42RETRANS() ; Prompt user to rebuild FMS doc from source doc and retransmit
43 S DIR(0)="Y",DIR("B")="YES"
44 S DIR("A")="Do you wish to rebuild and retransmit this FMS document"
45 S DIR("?")="Enter 'NO' or 'N' or '^' to exit."
46 S DIR("?",1)="Enter 'YES' or 'Y' or 'RETURN' to rebuild/retransmit this document."
47 D ^DIR K DIR S RETRAN=Y
48 I $D(Y(0)) S $P(RETRAN,U,2)=Y(0)
49 I $D(DIRUT) S $P(RETRAN,U,3)=DIRUT
50 Q RETRAN
Note: See TracBrowser for help on using the repository browser.