Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RMPOLM1

RMPOLM1.m

Go to the documentation of this file.
  1. RMPOLM1 ;EDS/MDB - HOME OXYGEN LISTMAN CODE ;7/24/98
  1. ;;3.0;PROSTHETICS;**29,64**;Feb 09, 1996
  1. ;
  1. ; RVD - patch 64 - accept & unaccept all patient billing
  1. ; changed PIKSOM TO PIKALL
  1. Q
  1. EN01 ; -- Edit Patient
  1. S RTN="EDIT^RMPOPED"
  1. D COMMON("PIKSOM") K DIR,RTN
  1. Q
  1. COMMON(PIKRTN) ;
  1. D FULL^VALM1
  1. D @PIKRTN Q:$$QUIT I Y="" S VALMBCK="R" Q
  1. S:PIKRTN="PIKONE" Y(0)=Y
  1. M LFNS=Y
  1. S RMJ=0
  1. 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
  1. . S LFN=RMZ
  1. . S RMPODFN=$O(@VALMAR@("IDX",LFN,""))
  1. . D @RTN
  1. S VALMBCK="R"
  1. K LFNS,LFN,PIKRTN,RMI,RMJ,RMZ,RMZI
  1. Q
  1. REDRAW ;
  1. D CLEAN^VALM10,INIT^RMPOLM,RE^VALM4 K DIR
  1. Q
  1. EN02 ; -- Edit Billing Transactions
  1. S RTN="EDIT^RMPOBIL2"
  1. D COMMON("PIKSOM"),REDRAW K RTN
  1. Q
  1. EN03 ; -- Accept Transactions
  1. S RTN="ACCEPT^RMPOBILU"
  1. D COMMON("PIKALL"),REDRAW K RTN
  1. Q
  1. EN04 ; -- Unaccept Transactions
  1. S RTN="UNACCEPT^RMPOBILU"
  1. D COMMON("PIKALL"),REDRAW K RTN
  1. Q
  1. EN09 ; -- QUIK EDIT
  1. S RTN="QUIK^RMPOBIL2"
  1. D COMMON("PIKSOM"),REDRAW K DIR,RTN
  1. Q
  1. EN10 ; -- ADD BILLING PATIENT
  1. D FULL^VALM1 W @IOF D ADD^RMPOBILA H 2
  1. D REDRAW
  1. Q
  1. EN11 ; -- DELETE BILLING PATIENT
  1. S RTN="DEL^RMPOBILA"
  1. D COMMON("PIKSOM"),REDRAW K DIR,RTN
  1. Q
  1. EN06 ; -- Display 2319
  1. S RTN="2319^RMPOBILU"
  1. D COMMON("PIKONE") K DIR,RTN
  1. Q
  1. EN07 ; -- Post Transactions
  1. ;
  1. K DFNS
  1. D FULL^VALM1
  1. D PIKSOM Q:$$QUIT I Y="" S VALMBCK="R" Q
  1. S LFNS=Y
  1. F ZI=1:1:$L(LFNS,",")-1 D
  1. . S LFN=$P(LFNS,",",ZI)
  1. . S RMPODFN=$O(@VALMAR@("IDX",LFN,""))
  1. . S DFNS(RMPODFN)=""
  1. D POST^RMPOPST0
  1. D REDRAW
  1. S VALMBCK="R" K DIR,DFNS,RMPODFN,ZI,LFNS,LFN
  1. Q
  1. EN08 ; -- Change View
  1. ;
  1. K DIR S DIR(0)="SO^A:Accepted;U:Unaccepted;B:Both"
  1. S DIR("B")="Both"
  1. S DIR("A")="Which Transactions would you like displayed?"
  1. D ^DIR Q:(Y="")!$$QUIT
  1. S DFLAG=Y D REDRAW K DIR
  1. Q
  1. PIKONE ; ALLOW SELECTION OF 1 ENTRY FROM DISPLAYED ENTRIES
  1. K DIR S DIR(0)="NO^"_VALMBG_":"_VALMLST D ^DIR
  1. Q
  1. PIKSOM ; ALLOW SELECTION FROM DISPLAYED ENTRIES
  1. K DIR S DIR(0)="LO^"_VALMBG_":"_VALMLST D ^DIR
  1. Q
  1. PIKALL ; ALLOW SELECTION FROM ALL ENTRIES
  1. K DIR S DIR(0)="LO^1:"_VALMCNT D ^DIR
  1. Q
  1. QUIT() S QUIT=$D(DTOUT)!$D(DUOUT)!$D(DIROUT) Q QUIT
  1. EQUIT() S QUIT=$D(DTOUT)!$D(Y) Q QUIT
  1. Q