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

Package: Prosthetics

Routine: RMPR21A


Information

RMPR21A ;PHX/HNB/JLT-CONT. CREATE 1358 TRANSACTION, POST TO 2319 ;8/29/1994

Source Information

Source file <RMPR21A.m>

Entry Points

Name Comments DBIA/ICR reference
P24 ;2421 DATE REQUIRED
COT ;2421'S AND NO FORM WITH CONTRACT AUTHORITY1
COT1
L2 ;ENTER/EDIT 2421, NO FORM
TRAN
PCAT
SPES
ITEM ;
CHK
ASK
ASK5
L
ZDSP ;MULTIPLE ITEM DISPLAY FOR PURCHASING AND CLOSE-OUT
LDIC
PR1 ;ENTRY POINT FOR 10-2421S ASKING THE USER IF THEY WANT TO PRINT THE PATIENT NOTIFICATION LETTER
HELP1 ;
PR ;ENTRY POINT FOR BOTH 10-2421S AND 10-55S ASKING THE USER IF THEY WANT TO PRINT THE PRIVACY ACT STATEMENT
HELP
CHKCPT ;check for cpt modifier
DELRP ;logic for deleting 'RP' modifier with transaction change.
ADDRP ;logic for adding 'RP' modifier with transaction change.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Sorry, contract has expired. Enter another contract or `return` to continue."
  • Line Location: COT1+3
Function Call: WRITE
  • Prompt: !,"----------------------------------",!
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: !,"Please enter type of Transaction!!"
  • Line Location: TRAN+4
Function Call: WRITE
  • Prompt: !,"Please enter Patient Category!!"
  • Line Location: PCAT+4
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",!
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"REQUIRED FIELDS DO NOT EXIST ON THIS FORM",!
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Please Try Later!"
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: $C(7),"Delivery is required. Enter '?' for additional help."
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !!,"Are you ready to POST to IFCAP and 10-2319 NOW"
  • Line Location: ASK5+0
Function Call: WRITE
  • Prompt: !,"This will Create a Daily Transaction in the 1358 Module of IFCAP,",!,"and Create an Entry on the Prosthetic 10-2319 Record"
  • Line Location: ASK5+1
Function Call: READ
  • Prompt: !
  • Variable: "Do you want to Delete this Transaction" D YN^DICN G
  • Timeout: $D(DTOUT)!(%=1)
  • Line Location: ASK5+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"REQUIRED ITEMS DO NOT EXIST ON THIS FORM",!
  • Line Location: L+12
Function Call: WRITE
  • Prompt: !,?5,RI,?10,RAC(RI)
  • Line Location: ZDSP+2
Function Call: WRITE
  • Prompt: !,"Enter `Y` for YES to print the Patient Notification letter",!,"`N` for No if you do not wish to print the letter."
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !,"Enter `Y` for YES to print the Privacy Act Statement",!,"`N` for NO if you do not want to print the statement."
  • Line Location: HELP+0

FileMan Files Accessed Via FileMan Db Call

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