| [613] | 1 | RMPOLM1 ;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
|
|---|
| 7 | EN01 ; -- Edit Patient
|
|---|
| 8 | S RTN="EDIT^RMPOPED"
|
|---|
| 9 | D COMMON("PIKSOM") K DIR,RTN
|
|---|
| 10 | Q
|
|---|
| 11 | COMMON(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
|
|---|
| 24 | REDRAW ;
|
|---|
| 25 | D CLEAN^VALM10,INIT^RMPOLM,RE^VALM4 K DIR
|
|---|
| 26 | Q
|
|---|
| 27 | EN02 ; -- Edit Billing Transactions
|
|---|
| 28 | S RTN="EDIT^RMPOBIL2"
|
|---|
| 29 | D COMMON("PIKSOM"),REDRAW K RTN
|
|---|
| 30 | Q
|
|---|
| 31 | EN03 ; -- Accept Transactions
|
|---|
| 32 | S RTN="ACCEPT^RMPOBILU"
|
|---|
| 33 | D COMMON("PIKALL"),REDRAW K RTN
|
|---|
| 34 | Q
|
|---|
| 35 | EN04 ; -- Unaccept Transactions
|
|---|
| 36 | S RTN="UNACCEPT^RMPOBILU"
|
|---|
| 37 | D COMMON("PIKALL"),REDRAW K RTN
|
|---|
| 38 | Q
|
|---|
| 39 | EN09 ; -- QUIK EDIT
|
|---|
| 40 | S RTN="QUIK^RMPOBIL2"
|
|---|
| 41 | D COMMON("PIKSOM"),REDRAW K DIR,RTN
|
|---|
| 42 | Q
|
|---|
| 43 | EN10 ; -- ADD BILLING PATIENT
|
|---|
| 44 | D FULL^VALM1 W @IOF D ADD^RMPOBILA H 2
|
|---|
| 45 | D REDRAW
|
|---|
| 46 | Q
|
|---|
| 47 | EN11 ; -- DELETE BILLING PATIENT
|
|---|
| 48 | S RTN="DEL^RMPOBILA"
|
|---|
| 49 | D COMMON("PIKSOM"),REDRAW K DIR,RTN
|
|---|
| 50 | Q
|
|---|
| 51 | EN06 ; -- Display 2319
|
|---|
| 52 | S RTN="2319^RMPOBILU"
|
|---|
| 53 | D COMMON("PIKONE") K DIR,RTN
|
|---|
| 54 | Q
|
|---|
| 55 | EN07 ; -- 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
|
|---|
| 69 | EN08 ; -- 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
|
|---|
| 77 | PIKONE ; ALLOW SELECTION OF 1 ENTRY FROM DISPLAYED ENTRIES
|
|---|
| 78 | K DIR S DIR(0)="NO^"_VALMBG_":"_VALMLST D ^DIR
|
|---|
| 79 | Q
|
|---|
| 80 | PIKSOM ; ALLOW SELECTION FROM DISPLAYED ENTRIES
|
|---|
| 81 | K DIR S DIR(0)="LO^"_VALMBG_":"_VALMLST D ^DIR
|
|---|
| 82 | Q
|
|---|
| 83 | PIKALL ; ALLOW SELECTION FROM ALL ENTRIES
|
|---|
| 84 | K DIR S DIR(0)="LO^1:"_VALMCNT D ^DIR
|
|---|
| 85 | Q
|
|---|
| 86 | QUIT() S QUIT=$D(DTOUT)!$D(DUOUT)!$D(DIROUT) Q QUIT
|
|---|
| 87 | EQUIT() S QUIT=$D(DTOUT)!$D(Y) Q QUIT
|
|---|
| 88 | Q
|
|---|
