Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Prosthetics 4 KILL^RMPR21  FILE^RMPR21B  ^RMPRLI  EDT^RMPRUTIL  
VA FileMan 4 ^DIC  YN^DICN  ^DIE  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Prosthetics 5 RMPR21  RMPR21B  RMPRE21  RMPRP21  RMPRP55  

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.

External References

Name Field # of Occurrence
^DIC ITEM+5, L+2, LDIC
YN^DICN ASK5, ASK5+2, PR1+4, PR+1
^DIE P24+1, COT1, CHK+6, ASK+7, L+7, L+13, L+22
^DIR COT1+1, TRAN+1, PCAT+1, SPES+2, ITEM+3, ASK, L+19
KILL^RMPR21 P24+1, COT1, COT1+2, ITEM+3, ITEM+6, CHK+1, CHK+3, CHK+5, ASK, ASK+6
, ASK5, ASK5+2, L, L+12, L+14, L+23
FILE^RMPR21B ASK5
^RMPRLI ASK5+3
EDT^RMPRUTIL ITEM+6

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
Routine Call
  • DIC
  • Line Location:
    • ITEM+5
    • L+2
    • LDIC
Routine Call
  • DIE
  • Line Location:
    • P24+1
    • COT1
    • CHK+6
    • ASK+7
    • L+7
    • L+13
    • L+22
Routine Call
  • DIR
  • Line Location:
    • COT1+1
    • TRAN+1
    • PCAT+1
    • SPES+2
    • ITEM+3
    • ASK
    • L+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(664 - [#664] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] COT1+1, COT1+3
^PRC(441 - [#441] ZDSP+1
^RMPR(661 - [#661] ZDSP+1
^RMPR(661.1 - [#661.1] CHKCPT+4, CHKCPT+5
^RMPR(664 - [#664] COT+1, COT1+1, TRAN+3, TRAN+4, PCAT+3, ITEM+4, CHK+1, CHK+2, CHK+4*, CHK+5
, ASK+6*, L+11, L+18, L+22, ZDSP+1, CHKCPT+1, CHKCPT+2, CHKCPT+3, DELRP+7*, ADDRP+2*
^RMPRA(664 PCAT+4

Label References

Name Line Occurrences
ADDRP CHKCPT+4
ASK ASK
ASK5 ASK5+1, ASK5+3, L+1, L+14
CHK TRAN+2, TRAN+3, PCAT+2, PCAT+3, SPES+2, ITEM+3, ITEM+4
CHKCPT L+9
COT1 COT1+1, COT1+3
DELRP CHKCPT+5
HELP PR+2
HELP1 PR1+5
ITEM PCAT+6, ITEM+5
L L+1, L+2, L+23
L2 ITEM+6
PCAT PCAT+4
PR HELP
PR1 HELP1+1, PR+1, PR+2
TRAN COT1+1, TRAN+4
ZDSP L+1

Naked Globals

Name Field # of Occurrence
^( CHK+2, L+11, ZDSP+1
^(0 CHK+2, L+11
^(3 COT+1*, L+22*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK5*, ASK5+1, ASK5+2*, PR1+2*, PR1+4, PR1+5, PR1+6, PR+1*, PR+2, PR+3
DA COT1+4!, CHK+6*, ASK+7*, L+2!, L+5*, L+10!, L+13!*, L+18, L+22*, CHKCPT+1
, CHKCPT+2, CHKCPT+3, DELRP+7, ADDRP+2
DA(1 L+2*, L+5*, CHKCPT+1, CHKCPT+2, CHKCPT+3, DELRP+7, ADDRP+2
>> DIC ITEM+5*, L+2*, LDIC*
>> DIC("W" LDIC*
>> DIC(0 ITEM+5*, L+2*, LDIC*
>> DIE CHK+6*, ASK+7*, L+7*, L+13*, L+22*
DIR COT1+1!, COT1+4!, TRAN!, PCAT!, PCAT+6!, ITEM+1!, CHK!, ASK!, ASK+1!, L+19!
DIR("?" ITEM+2*
DIR("A" TRAN+1*, PCAT+1*, SPES+1*, ITEM+1*, ASK+3*, L+16*
DIR("B" COT1+1*, L+18*
DIR(0 COT1+1*, TRAN*, PCAT*, SPES*, ITEM+1*, ASK+2*, L+15*
>> DIRUT ITEM+4, ASK
>> DR P24+1*, COT+2*, COT1+3*, CHK+6*, ASK+7*, L+6*, L+13*, L+22*
DT COT1+3
DTIME L
>> DTOUT P24+1, COT1, TRAN+2, PCAT+2, SPES+2, ITEM+3, ITEM+6, ASK, ASK+6, ASK5
, ASK5+2, L+14, L+20, L+23
>> DUOUT TRAN+2, PCAT+2, SPES+2, ITEM+3, CHK+5, L+14, L+20
DUZ CHK+4
>> FL CHK*, CHK+2*, CHK+3, L+11*, L+12
RAC ZDSP+1!, ZDSP+2
RAC( ZDSP+1*, ZDSP+2
RFL CHK!, LDIC!
>> RI CHK+2*, L+11*, ZDSP+2*
RMC CHKCPT+6!, DELRP+1*
>> RMCAT PCAT+5*, PCAT+6, SPES+2, SPES+3
RMCI CHKCPT+6!, DELRP+1*
RMCLEN CHKCPT+6!, DELRP+4*, DELRP+5, DELRP+6
RMCPTOLD CHKCPT+1*, CHKCPT+4, CHKCPT+5, CHKCPT+6!, DELRP+1*, DELRP+2, DELRP+3*, DELRP+4, DELRP+5*, DELRP+6*
, DELRP+7, ADDRP+1*, ADDRP+2
RMF CHKCPT+6!, DELRP+2*, DELRP+3
>> RMFPIECE DELRP+2*, DELRP+3
RMHCPC CHKCPT+3*, CHKCPT+4, CHKCPT+5, CHKCPT+6!
RMLPIECE CHKCPT+6!, DELRP+3*
>> RMPRA COT+1, COT1+1, TRAN+3, TRAN+4, PCAT+3, PCAT+4, ITEM+4, CHK+1, CHK+2, CHK+4
, CHK+5, CHK+6, ASK+6, ASK+7, L+2, L+5, L+7, L+11, L+13, L+22
, ZDSP+1
>> RMPRCONT COT1+4*, L+4*
>> RMPRCTK COT1+4*, L+4
>> RMPRDELN ASK+6*, L+21*
>> RMPRF CHK+6, ASK, ASK+6, L+13, L+14, PR1+1
>> RMPRI ZDSP+1*
>> RMPRI1 ZDSP+1*
>> RMPRIT ZDSP+1*
>> RMPRPN PR1+2*, PR1+4*
>> RMPRPRIV PR+1*
>> RMPRV COT1+1*, COT1+3
>> RMPRX ASK5+3
>> RMSPE SPES+3*
RMTYNEW CHKCPT+2*, CHKCPT+4, CHKCPT+5, CHKCPT+6!
>> RMTYPE TRAN+5*
U COT1+1, COT1+3, COT1+4, CHK+2, CHK+4, ASK+6, L+11, L+18, ZDSP+1, CHKCPT+1
, CHKCPT+2, CHKCPT+3, DELRP+7, ADDRP+2
>> X COT1+1, COT1+2, ASK, L*, L+1, LDIC*
Y P24+1, COT1, COT1+1, COT1+3, COT1+4, TRAN+3, TRAN+4, TRAN+5, PCAT+3, PCAT+4
, PCAT+5, SPES+3, ITEM+5, ASK+6, L+2!, L+5, L+22
Y(0 ASK+6, L+21
Y1 L+22*, L+23!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All