source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPOLM1.m@ 771

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1RMPOLM1 ;EDS/MDB - HOME OXYGEN LISTMAN CODE ;7/24/98
2 ;;3.0;PROSTHETICS;**29,64**;Feb 09, 1996
3 ;
4 ; RVD - patch 64 - accept & unaccept all patient billing
5 ; changed PIKSOM TO PIKALL
6 Q
7EN01 ; -- Edit Patient
8 S RTN="EDIT^RMPOPED"
9 D COMMON("PIKSOM") K DIR,RTN
10 Q
11COMMON(PIKRTN) ;
12 D FULL^VALM1
13 D @PIKRTN Q:$$QUIT I Y="" S VALMBCK="R" Q
14 S:PIKRTN="PIKONE" Y(0)=Y
15 M LFNS=Y
16 S RMJ=0
17 F RMI=0:0 S RMI=RMI+RMJ,RMJ=1 Q:'$D(LFNS(RMI)) F RMZI=1:1 S RMZ=$P(LFNS(RMI),",",RMZI) Q:RMZ="" D
18 . S LFN=RMZ
19 . S RMPODFN=$O(@VALMAR@("IDX",LFN,""))
20 . D @RTN
21 S VALMBCK="R"
22 K LFNS,LFN,PIKRTN,RMI,RMJ,RMZ,RMZI
23 Q
24REDRAW ;
25 D CLEAN^VALM10,INIT^RMPOLM,RE^VALM4 K DIR
26 Q
27EN02 ; -- Edit Billing Transactions
28 S RTN="EDIT^RMPOBIL2"
29 D COMMON("PIKSOM"),REDRAW K RTN
30 Q
31EN03 ; -- Accept Transactions
32 S RTN="ACCEPT^RMPOBILU"
33 D COMMON("PIKALL"),REDRAW K RTN
34 Q
35EN04 ; -- Unaccept Transactions
36 S RTN="UNACCEPT^RMPOBILU"
37 D COMMON("PIKALL"),REDRAW K RTN
38 Q
39EN09 ; -- QUIK EDIT
40 S RTN="QUIK^RMPOBIL2"
41 D COMMON("PIKSOM"),REDRAW K DIR,RTN
42 Q
43EN10 ; -- ADD BILLING PATIENT
44 D FULL^VALM1 W @IOF D ADD^RMPOBILA H 2
45 D REDRAW
46 Q
47EN11 ; -- DELETE BILLING PATIENT
48 S RTN="DEL^RMPOBILA"
49 D COMMON("PIKSOM"),REDRAW K DIR,RTN
50 Q
51EN06 ; -- Display 2319
52 S RTN="2319^RMPOBILU"
53 D COMMON("PIKONE") K DIR,RTN
54 Q
55EN07 ; -- Post Transactions
56 ;
57 K DFNS
58 D FULL^VALM1
59 D PIKSOM Q:$$QUIT I Y="" S VALMBCK="R" Q
60 S LFNS=Y
61 F ZI=1:1:$L(LFNS,",")-1 D
62 . S LFN=$P(LFNS,",",ZI)
63 . S RMPODFN=$O(@VALMAR@("IDX",LFN,""))
64 . S DFNS(RMPODFN)=""
65 D POST^RMPOPST0
66 D REDRAW
67 S VALMBCK="R" K DIR,DFNS,RMPODFN,ZI,LFNS,LFN
68 Q
69EN08 ; -- Change View
70 ;
71 K DIR S DIR(0)="SO^A:Accepted;U:Unaccepted;B:Both"
72 S DIR("B")="Both"
73 S DIR("A")="Which Transactions would you like displayed?"
74 D ^DIR Q:(Y="")!$$QUIT
75 S DFLAG=Y D REDRAW K DIR
76 Q
77PIKONE ; ALLOW SELECTION OF 1 ENTRY FROM DISPLAYED ENTRIES
78 K DIR S DIR(0)="NO^"_VALMBG_":"_VALMLST D ^DIR
79 Q
80PIKSOM ; ALLOW SELECTION FROM DISPLAYED ENTRIES
81 K DIR S DIR(0)="LO^"_VALMBG_":"_VALMLST D ^DIR
82 Q
83PIKALL ; ALLOW SELECTION FROM ALL ENTRIES
84 K DIR S DIR(0)="LO^1:"_VALMCNT D ^DIR
85 Q
86QUIT() S QUIT=$D(DTOUT)!$D(DUOUT)!$D(DIROUT) Q QUIT
87EQUIT() S QUIT=$D(DTOUT)!$D(Y) Q QUIT
88 Q
Note: See TracBrowser for help on using the repository browser.