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

Package: Prosthetics

Routine: RMPR29D


Information

RMPR29D ;PHX/JLT-DISPLAY 2529-3 INFO ;8/29/1994 [ 09/29/94 10:05 AM ]

Source Information

Source file <RMPR29D.m>

Entry Points

Name Comments DBIA/ICR reference
DISP ;GET AND DISPLAY 2529-3 INFO
ITD ;ITEM DISPLAY
WP ;WORD PROCESSING FIELD DISPLAY
EXT ;COMMON EXIT POINT
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+6
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+7
Function Call: WRITE
  • Prompt: !,?10,"HCPCS: ",^UTILITY("DIQ1",$J,664.16,RI,13)
  • Line Location: ITD+9
Function Call: WRITE
  • Prompt: !,?10,"CPT MODIFIER: ",^UTILITY("DIQ1",$J,664.16,RI,13.1)
  • Line Location: ITD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WP+2
Function Call: WRITE
  • Prompt: !,?10,^(RL,0)
  • Line Location: EXT+4
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"ALL MANDATORY FIELDS NOT DEFINED FORM 2529-3 DELETED"
  • Line Location: CHK+5
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(664.1 - [#664.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call