Routine: RMPOBIL6

Information

RMPOBIL6 ;HINES/RVD - HOME OXYGEN BILLING TRANSACTIONS ;9/16/02 11:01

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA FileMan	6	^DIC FILE^DICN ^DIE ^DIK GETS^DIQ ^DIR
Prosthetics	3	^RMPOBIL7 $$GETFCP^RMPOBILU ASK1^RMPOPAT
Registration	1	DEM^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Prosthetics	1	RMPOPAT

Entry Points

Name	Comments	DBIA/ICR reference
2319	; SHOW PAGE 8 OF 2319
QUIT()
EQUIT()
LJ(S,W,C)	; Left justify S in a field W wide padding with char C
EDIT	;NEW billing transaction edit module
EXIT
QUIK	; QUICK ITEM EDIT
ITEM	; Main edit loop
ITEMLOOP	;
OK2EDIT()	;
LOCKED()	;
ITEMD	; Display items
BPI	; Build pt info hdr
DPI	; Display pt info hdr
BII	; Build item info array
BIIL	;Build detail line
DII	; Display item info array
ITEMO()	; Select action (A/E/D/Z)
ITEMA	; Add an item
SDICE	; Set DIC,DIE,DA for adding Trx items
ITEMS	; Select an item
ITEME	; Edit an item
SACK
ITEMZ	; Zero an item
ITEMK	; Delete an item
WAK

External References

Name	Field # of Occurrence
^DIC	ITEMA+2
FILE^DICN	ITEMA+5
^DIE	QUIK+11, QUIK+14, ITEMA+6, ITEME+3, SACK, SACK+3, SACK+4, SACK+9, ITEMZ+2
^DIK	WAK
GETS^DIQ	BPI+15, BII+4
^DIR	2319+4, QUIK+4, QUIK+6, QUIK+16, ITEM+4, ITEM+6, ITEMO+3, ITEMS+7, ITEMK+6
^RMPOBIL7	2319+6
$$GETFCP^RMPOBILU	SACK+7
ASK1^RMPOPAT	2319+5
DEM^VADPT	BPI+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: wide Line Location: LJ+0
Function Call: WRITE	Prompt: !,$C(7)_"Cannot edit Accepted Transactions. " Line Location: QUIK+3
Function Call: WRITE	Prompt: "Please 'Unaccept' first." Line Location: QUIK+4
Function Call: WRITE	Prompt: !,$C(7)_"Record is locked. " Line Location: QUIK+6
Function Call: WRITE	Prompt: !,ITM(I) Line Location: QUIK+9
Function Call: WRITE	Prompt: !,$C(7)_"Cannot edit Accepted Transactions. " Line Location: ITEM+3
Function Call: WRITE	Prompt: "Please 'Unaccept' first." Line Location: ITEM+4
Function Call: WRITE	Prompt: !,$C(7)_"Record is locked. " Line Location: ITEM+6
Function Call: WRITE	Prompt: !,PTI(I) Line Location: DPI+1
Function Call: WRITE	Prompt: ! Line Location: DII+2
Function Call: WRITE	Prompt: !,ITM(I) Line Location: DII+2
Function Call: WRITE	Prompt: !!,"TOTAL COST",?72,$J(TOT,6,2),! Line Location: DII+3
Function Call: WRITE	Prompt: !,"Total 910 Charges:",?72,$J(+$G(TOT(910)),6,2),! Line Location: DII+4
Function Call: WRITE	Prompt: !,"Total Station FCP Charges:",?72,$J(TOT-$G(TOT(910)),6,2),! Line Location: DII+5
Function Call: WRITE	Prompt: !,$C(7)_"Item "_(+Y)_" has been POSTED!" Line Location: ITEMS+9
Function Call: WRITE	Prompt: !,"SUSPENDED AMT SHOULD NOT BE GREATER THAN TOTAL AMOUNT!" Line Location: SACK+2
Function Call: WRITE	Prompt: $C(7)_"REQUIRED FIELD!" Line Location: SACK+8
Function Call: WRITE	Prompt: !,"Can't delete PRIMARY ITEM!" Line Location: ITEMK+4
Function Call: WRITE	Prompt: " ...deleted!" Line Location: WAK+0
Routine Call	DIC Line Location: ITEMA+2
Routine Call	DIE Line Location: QUIK+11 QUIK+14 ITEMA+6 ITEME+3 SACK SACK+3 SACK+4 SACK+9 ITEMZ+2
Routine Call	DIR Line Location: 2319+4 QUIK+4 QUIK+6 QUIK+16 ITEM+4 ITEM+6 ITEMO+3 ITEMS+7 ITEMK+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RMPR(661 - [#661]	Classic Fileman Calls
665.193	GETS^DIQ
665.72319	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BPI+8, BPI+9
^RMPO(665.72 - [#665.72]	EDIT+7, EXIT, QUIK+12, OK2EDIT+2, LOCKED+2, ITEMS+10, ITEMS+11, SACK+5
^RMPR(665 - [#665]	BPI+6, BPI+8, BPI+9, ITEMS+12

Label References

Name	Line Occurrences
$$EQUIT	QUIK+11, QUIK+14, ITEMA+6, ITEME+3, SACK, SACK+3, SACK+4, SACK+9, ITEMZ+2
$$ITEMO	ITEMLOOP+5
$$LJ	BIIL+9, BIIL+10, BIIL+11, BIIL+12
$$LOCKED	QUIK+5, ITEM+5
$$OK2EDIT	QUIK+2, ITEM+2
$$QUIT	2319+5, QUIK+16, ITEMLOOP+5, ITEMA+2, ITEMA+5, ITEMS+7, SACK+7
BII	QUIK+15, ITEMD+2
BIIL	BII+9, BII+19
BPI	2319+3, ITEMD+2
DII	QUIK+15, ITEMD+2
DPI	2319+3, ITEMD+2
EXIT	QUIK+17
ITEM	EDIT+10
ITEMA	ITEMLOOP+7
ITEMD	QUIK+7, ITEMLOOP+3
ITEME	ITEMLOOP+7, ITEMLOOP+11
ITEMK	ITEMLOOP+9
ITEMLOOP	ITEMLOOP+7, ITEMLOOP+9, ITEMLOOP+11, ITEMLOOP+13, ITEMLOOP+14
ITEMS	ITEMLOOP+9, ITEMLOOP+11, ITEMLOOP+13, ITEMS+8
ITEMZ	ITEMLOOP+13
SACK	SACK+1
SDICE	QUIK+10, ITEMA+4, ITEME+1, ITEMZ+1, ITEMK+1, ITEMK+7
WAK	ITEMA+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	EXIT+1!
BACKPTR	EXIT+4!, BIIL+7, ITEMS+11, ITEMS+12
C	LJ~, LJ+2*, LJ+3, EXIT+4!
CIEN	EXIT+4!, BII+1!, BII+2, BII+19, BIIL+2, BIIL+3, BIIL+5, BIIL+9, BIIL+10, BIIL+11 , BIIL+12, BIIL+13, BIIL+14, BIIL+15, BIIL+16, BIIL+24*
DA	EXIT+2!, QUIK+11, QUIK+12, ITEMA+6, ITEMA+10, SDICE+1!, ITEME+3, SACK+5, ITEMZ+2, ITEMK+7!*
DA(1	QUIK+12, SDICE+3*, SDICE+4, SACK+5
DA(2	QUIK+12, SDICE+3*, SDICE+4, SACK+5
DA(3	QUIK+12, SDICE+3*, SDICE+4, SACK+5
DA(4	QUIK+12, SDICE+3*, SDICE+4, SACK+5
DD	EXIT+2!, ITEMA+4!
DFCP	EXIT+4!, SACK+5*, SACK+7
DFN	2319+7!, EXIT+3!, BPI+3*
DIC	EXIT+2!, ITEMA+2!, SDICE+1!, SDICE+4, SDICE+5, ITEMK+2, ITEMK+7
DIC(0	ITEMA+2, ITEMA+4
DIE	EXIT+2!, ITEMA+6, SDICE+1!, SDICE+5*
DIE("NO^"	ITEME+2*
DIK	EXIT+2!, ITEMA+6, ITEMK+7!
DIR	2319+4!, EXIT+2!, QUIK+4!, QUIK+6!, QUIK+16!, ITEM+4!, ITEM+6!, ITEMO+1!, ITEMS+2!, ITEMK+5!
DIR("?"	ITEMS+5, ITEMS+6
DIR("A"	ITEMO+3, ITEMS+4, ITEMK+5*
DIR("B"	ITEMK+6*
DIR(0	2319+4, QUIK+4, QUIK+6, QUIK+16, ITEM+4, ITEM+6, ITEMO+2, ITEMS+4, ITEMK+5*
DIROUT	QUIT, EXIT+2!
DO	EXIT+2!, ITEMA+4!
DR	EXIT+2!, QUIK+10!, QUIK+11, QUIK+14, ITEMA+6, ITEME+1!, ITEME+3, SACK, SACK+3, SACK+4* , SACK+9, ITEMZ+1!, ITEMZ+2
DT1	2319+7!, EXIT+1!, BPI+8*, BPI+11
DT2	2319+7!, EXIT+1!, BPI+9*, BPI+11
>> DTOUT	QUIT, EQUIT
DUOUT	QUIT, EXIT+2!
FCP	EXIT+3!, BIIL+21, BIIL+22, SACK+6, SACK+7, SACK+8, SACK+9
I	2319+7!, EXIT+3!, QUIK+8, QUIK+9, QUIK+11, BPI+16, BPI+17, DPI+1, DII+2
IEN	EXIT+1!, QUIK+8, BII+1!, BII+6, DII+1, DII+2, ITEMA+10, ITEMS+1, ITEMS+4
IEN(	QUIK+11, BIIL+2, ITEMA+10, ITEME+3, ITEMZ+2, ITEMK+2, ITEMK+7
IENS	2319+7!, EXIT+1!, BPI+14, BPI+15, BPI+16, BPI+17, BII+3, BII+4
ITEM	EXIT+3!, ITEMLOOP+7, ITEMLOOP+9, ITEMLOOP+11, ITEMLOOP+13, ITEMA+1, ITEMA+10, ITEMS+1, ITEMS+3, ITEMS+10* , ITEMS+11, ITEMS+12, ITEME+3, ITEMZ+2, ITEMK+2, ITEMK+7
ITM	EXIT+1!, BII+1!, ITEMS+6
ITM(	QUIK+9, BIIL+3, BIIL+5, BIIL+9, BIIL+10, BIIL+11, BIIL+12, BIIL+13, BIIL+14, BIIL+15* , BIIL+16*, DII+2
ITMACT	EXIT+1!, ITEMLOOP+5*, ITEMLOOP+7, ITEMLOOP+9, ITEMLOOP+11, ITEMLOOP+13
NEW	EXIT+3!, ITEMA+3*, ITEMA+4
OTH	EXIT+1!
PITM	EXIT+4!, BII+1!, ITEMS+10, ITEMS+12, ITEMK+2*, ITEMK+3
POSTED	EXIT+4!, BII+1!
POSTED(	BIIL+19*, ITEMS+8
PSTFLG	EXIT+4!, BIIL+6*, BIIL+9
PTI	2319+7!, EXIT+1!, BPI+1!
PTI(	DPI+1
PTI(1	BPI+4*
PTI(2	BPI+10*
PTI(3	BPI+11, BPI+17
QUIT	QUIT, EQUIT, EXIT+3!, QUIK+8, ITEMLOOP+2*, ITEMLOOP+7, ITEMLOOP+9, ITEMLOOP+11, ITEMLOOP+13, SACK+6
RMDIC	EXIT+4!, ITEMK+2*
RMIT	EXIT+4!, ITEMK+2*
>> RMPODFN	2319+2*, EDIT+6, EDIT+7, EXIT, OK2EDIT+2, LOCKED+2, BPI+3, BPI+6, BPI+8, BPI+9 , BPI+14, BII+3, SDICE+3, ITEMS+10, ITEMS+11, ITEMS+12
>> RMPORVDT	EDIT+6, EDIT+7, EXIT, OK2EDIT+2, LOCKED+2, BII+3, SDICE+3, ITEMS+10, ITEMS+11
>> RMPOVDR	EDIT+6, EDIT+7, EXIT, OK2EDIT+2, LOCKED+2, BII+3, SDICE+3, ITEMS+10, ITEMS+11
>> RMPOXITE	EDIT+6, EDIT+7, EXIT, OK2EDIT+2, LOCKED+2, BII+3, SDICE+3, ITEMS+10, ITEMS+11
>> RMPRDFN	2319+2
RX	2319+7!, EXIT+1!, BPI+6*, BPI+7, BPI+8, BPI+9, BPI+10, BPI+14
S	LJ~, LJ+3*, LJ+4, EXIT+4!
SUSP	EXIT+4!, BII+1!, BII+2, BIIL+24, DII+6
T910	EXIT+1!
TIEN	EXIT+3!, BII+9, BII+19, BIIL+2, BIIL+5, BIIL+18, BIIL+19
TMP	EXIT+1!, BII+7!*, BII+10!
TMP(	BII+8, BII+12, BIIL+8*, BIIL+11
TMP(10	BII+18*, BIIL+15, BIIL+24
TMP(12	BIIL+7
TMP(2	BII+11*, BIIL+10
TMP(3	BII+13*, BIIL+12, BIIL+21
TMP(5	BII+15*, BIIL+14
TMP(6	BII+16*, BIIL+16, BIIL+21
TMP(7	BII+14*, BIIL+13
TMP(8	BII+17*, BIIL+6, BIIL+19
TOT	EXIT+1!, BII+1!, BIIL+23*, DII+3, DII+5
TOT(	BIIL+22*
TOT(910	DII+4, DII+5
TOTAL	EXIT+3!, BIIL+21*, BIIL+22, BIIL+23
TRX	2319+7!, EXIT+1!, BPI+13!, BII+1!
TRX(	BPI+16, BPI+17, BII+6, BII+7
U	QUIK+13, OK2EDIT+2, BPI+4, BPI+8, BPI+9, ITEMS+10, ITEMS+11, ITEMS+12, SACK+5, SACK+7 , ITEMK+2
VADM	EXIT+3!
VADM(1	BPI+4
VADM(2	BPI+4
W	LJ~, LJ+3, LJ+4, EXIT+4!
X	EXIT+3!, ITEMA+4*, SACK+3
Y	2319+7!, EQUIT, EXIT+3!, BPI+8, BPI+9, ITEMO+4, ITEMA+2, ITEMA+3, ITEMA+5, ITEMA+6 , ITEMS+7, ITEMS+8, ITEMS+9, ITEMS+10, ITEMK+6
Z	EXIT+3!, QUIK+12, QUIK+13, BII+8
Z1	EXIT+3!, QUIK+13*, QUIK+14, SACK+1, SACK+4
Z2	EXIT+3!, QUIK+13*, QUIK+14, SACK+1, SACK+4
Z3	EXIT+3!, QUIK+13*, QUIK+14, SACK+1, SACK+4
ZV	EXIT+3!, SDICE+2*, SDICE+4
ZX1	EXIT+1!, BII+5, BII+6, BII+7, BII+9

Customize PDF page

Package: Prosthetics