Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPOPED

Package: Prosthetics

Routine: RMPOPED


Information

RMPOPED ;EDS/MDB,DDW,RVD - HOME OXYGEN MISC FILE EDITS ;7/24/98

Source Information

Source file <RMPOPED.m>

Entry Points

Name Comments DBIA/ICR reference
UNLOCK
EXIT
KEY ;user must have the RMPRSUPERVISOR key in order to add a new patient.
SITE ; Editing of Home Oxygen site parameter file.
FCPHLP ; Executable help for FCP multiple in 669.9
FCPIX ; Input transform for FCP multiple in 669.9
ACT ;activate/inactivate a home oxygen patient
ACT1 ;Toggle ACTIVATE/INACTIVATE functions.
INACTVT ; Inactivate the patient if user wants to.
; Confirm if the user wants to proceed.
ACTVT ;Activate the patient if the user wants to.
PAT ;Add/Edit Home Oxygen Patient
LOOP ;
EDBLK ;
EDIT ;From Billing...
LOOKUP ;First look-up the patient
CONT
QUIT()
EQUIT()
LJ(S,W,C) ; LEFT JUSTIFY S IN A FIELD W WIDE PADDING WITH CHAR F
SITECHK ;If user chooses patient from site different from billing site
SET ;
DEMOG ;First edit the patient's basic fields
RX ;Edit the Rx Data
ITEM ;Add/Edit Items
ITEMP ; Add Primary Item
ITEMA ; Add Items
ITEMS ; Select Item
; Return ITEM = index into both ITEMS and IEN arrays
RMPRLOAD ; Load ICD, Code Set and Status
ITEME ; Edit an Item - ICD-10 Changes
ITEMEH ;CHECK HCPCS code for inactive ;RMPR*3.0*180
ITEMEP ; Primary Item edit...
PIEN(DFN) ; FIND PRIMARY ITEM
; RETURN IEN OF P.I. IN MULTIPLE ^ IEN IN FILE 661
ITEMD ; Display Items
ITEMNM(ITM) ; RETURN ITEM NAME
VDRNM(VDR) ; RETURN VENDOR NAME
ITEMK ; Delete an Item
ITEMO() ; Choose Option
PARSE(RMPRTXT) ; Utility to break line of text over 80 characters into 2 lines
; Input:
; RMPRTXT = Two line array to parse
; RMPRTXT(1) = ICD-## Diagnosis code: ###.#### - Required
; RMPRTXT(2) = Full Description up to 245 characters Required
; RMPRTXT(3) = Suspense Info Optional
;
; Output:
; RMPRTXT array with each line of text < 80 characters and ending in a whole word.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You do not hold the RMPRSUPERVISOR key!!"
  • Line Location: KEY+5
Function Call: WRITE
  • Prompt: ?10,$C(7)_Y(0,0)_" -- record in use. Try again later."
  • Line Location: SITE+9
Function Call: WRITE
  • Prompt: !,"Control Point is not a valid IFCAP FCP.."
  • Line Location: FCPIX+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACT+3
Function Call: WRITE
  • Prompt: ?10,$C(7)_Y(0,0)_" -- record in use. Try later."
  • Line Location: ACT1+6
Function Call: WRITE
  • Prompt: !!,$C(7)_NAME_" has not been added as a Home Oxygen patient."
  • Line Location: ACT1+9
Function Call: WRITE
  • Prompt: !,"Please add using the ""Add/Edit Home Oxygen Patient"" option."
  • Line Location: ACT1+10
Function Call: WRITE
  • Prompt: !,"EDITING "_$P(^DPT(RMPODFN,0),U)_"...",!
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !!?10,*7," << Record in use. Try later. >>"
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !!!
  • Line Location: LOOKUP+2
Function Call: WRITE
  • Prompt: !!?10,*7," << Record in use. Try later. >>"
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: WIDE
  • Line Location: LJ+0
Function Call: WRITE
  • Prompt: !!,"Patient's Home Oxygen Contract Location (HOCL) is "
  • Line Location: SITECHK+8
Function Call: WRITE
  • Prompt: $G(X(665,IENS,19.12,"E"))
  • Line Location: SITECHK+9
Function Call: WRITE
  • Prompt: !,"You are working on billing for HOCL "_RMPO("NAME"),!
  • Line Location: SITECHK+10
Function Call: WRITE
  • Prompt: !!,$C(7)_"No items found, please enter PRIMARY ITEM",!
  • Line Location: ITEMP+1
Function Call: WRITE
  • Prompt: " ",$E(ITEMS(ITEM),1,33)
  • Line Location: ITEMS+27
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEMS+33
Function Call: WRITE
  • Prompt: !!,"Inactivated HCPCS not allowed, please enter active code",!!
  • Line Location: ITEMEH+3
Function Call: WRITE
  • Prompt: !!,RMPPARAM("NO DATA FOUND")
  • Line Location: ITEMEH+61
Function Call: WRITE
  • Prompt: " <NOTHING TO DELETE>"
  • Line Location: ITEMEH+70
Function Call: WRITE
  • Prompt: $C(7)_"REQUIRED FIELD!"
  • Line Location: ITEMEH+95
Function Call: WRITE
  • Prompt: !!,"The following items are already in this patient's template:",!
  • Line Location: ITEMD+7
Function Call: WRITE
  • Prompt: !," Item Description Vendor ICD CS+"
  • Line Location: ITEMD+8
Function Call: WRITE
  • Prompt: !,RMPRTXT
  • Line Location: ITEMD+33
Function Call: WRITE
  • Prompt: !!," * = Primary Item "
  • Line Location: ITEMD+36
Function Call: WRITE
  • Prompt: !,"CS = Code Set for ICD Diagnosis code"
  • Line Location: ITEMD+37
Function Call: WRITE
  • Prompt: !," + = Item with active ICD code on start date of prescription",!
  • Line Location: ITEMD+38
Function Call: WRITE
  • Prompt: " ...deleted!"
  • Line Location: ITEMK+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
420.01 FIND^DIC
^PRC(440 - [#440] GETS^DIQ
^RMPR(661 - [#661] Classic Fileman Calls,  GETS^DIQ
^RMPR(665 - [#665] Classic Fileman Calls,  GETS^DIQ
665.193 GET1^DIQ
^RMPR(669.9 - [#669.9] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call