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: RMPR29LU

Package: Prosthetics

Routine: RMPR29LU


Information

RMPR29LU ;HIN/RVD-LAB ISSUE FROM STOCK UTILITY;5/27/1998

Source Information

Source file <RMPR29LU.m>

Entry Points

Name Comments DBIA/ICR reference
LIS
ITD ;ITEM DISPLAY
WP ;WORD PROCESSING FIELD DISPLAY
POST
GGC
DEL ;delete status 2529-3
RDL ;delete record
ASK ;
EN4 ;CREATE JOB RECORD
EXIT ;COMMON EXIT POINT
HCP(RD0,RD1) ;print HCPCS and GIP or Pros Inventory in -3.
CHK ;CHECK DISABILITY AND ITEMS
ER1 ;error message

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,HLD(RI),?10,$E(^UTILITY("DIQ1",$J,664.16,RI,.01),1,15)
  • Line Location: ITD+2
Function Call: WRITE
  • Prompt: ?27,$E(^UTILITY("DIQ1",$J,664.16,RI,12),1,15),?45,^(2),?50,^(3),?55,^(8),?65,^(9)
  • Line Location: ITD+3
Function Call: WRITE
  • Prompt: !,?10,"HCPCS: ",^UTILITY("DIQ1",$J,664.16,RI,13)
  • Line Location: ITD+4
Function Call: WRITE
  • Prompt: !!,"Error encountered while posting to GIP. Inventory Issue did not post..."
  • Line Location: POST+1
Function Call: WRITE
  • Prompt: !!,"Posted to 2319..",!
  • Line Location: GGC+13
Function Call: WRITE
  • Prompt: !,?5,"Updated 10-2319"
  • Line Location: DEL+9
Function Call: WRITE
  • Prompt: !,?5,$C(7),"Marked As Deleted..."
  • Line Location: DEL+10
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"Deleted..."
  • Line Location: RDL+9
Function Call: WRITE
  • Prompt: @IOF,RMPR("L")
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,?10,^(RL,0)
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !,?9,"HCPCS: ",$P(^RMPR(661.1,RPHCPC,0),U,1)
  • Line Location: HCP+8
Function Call: WRITE
  • Prompt: !,?9,"*** Pros Inventory ***",?35,"Location: "
  • Line Location: HCP+14
Function Call: WRITE
  • Prompt: $P(^RMPR(661.3,RPSALOC,0),U,1)
  • Line Location: HCP+14
Function Call: WRITE
  • Prompt: !,?9,"*** GIP ***"
  • Line Location: HCP+15
Function Call: WRITE
  • Prompt: !,?9,"*** OTHER ***"
  • Line Location: HCP+16
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"ALL MANDATORY FIELDS NOT DEFINED FORM 2529-3 DELETED"
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"2529-3 FORM INCOMPLETE. DISABILITY CODE INFORMATION IS MISSING!!"
  • Line Location: ER1+1
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"2529-3 FORM INCOMPLETE. ITEM INFORMATION IS MISSING!!"
  • Line Location: ER1+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(660 - [#660] Classic Fileman Calls
^RMPR(661.2 - [#661.2] Classic Fileman Calls
^RMPR(664.1 - [#664.1] Classic Fileman Calls
^RMPR(664.2 - [#664.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call