Routine: PXBDREQ

Information

PXBDREQ ;ISL/JVS - DISPLAY REQUESTS ;7/24/96 08:44

Source file <PXBDREQ.m>

Package	Total	Call Graph
PCE Patient Care Encounter	1	(LOC,RREV,RREVH,UNDOFF,UNDON)^PXBCC

Package	Total	Caller Graph
PCE Patient Care Encounter	14	PXBGVST PXBMCPT PXBMCPT2 PXBMPOV PXBMPRV PXBMSTP PXBPCPT1 PXBPPOV1 PXBPPRV1 PXBPQUA PXBPSTP PXBPSTP1 PXBUTL PXQGVST1

Name	Comments	DBIA/ICR reference
POV	;PURPOSE OF VISIT
PRINT(NO)	;--Display the requested information
ZP1	;--PROVIDER AND PRIMARY
CPT	;CPT CODES
ZP3	;--QUANTITY OF PROCEDURES
ZP2	;--CPT PROCEDURE AND DESCRIPTION
ZP5	;--STOP CODE
ZP4	;--DIAGNOSIS
RSET(CATEGORY)	; Reset the data in the REQ,REQI and REQE variables ; CATEGORY IS EQUAL TO FILE NEUMONICS (eg. CTP,POV,PRV)
N8	;---EIGHTH Method--for the ENCOUNTERS prompts
REQ(NO)	;--Display the REQUESTED Data
PRV	;PROVIDER
STP	;STOPCODES
N4	;---Fourth Method--for the CPT promts
N5	;---Fifth Method--for the PROVIDER prompts
N6	;---Sixth Method--for the POV(DIAGNOSIS) prompts
N7	;---SEVENTH Method--for the STOP CODES prompts

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"PROVIDER: ...Enter the provider associated with the CPT'S....." Line Location: N4+1
Function Call: WRITE	Prompt: !,?5,"CPT: " Line Location: N4+3
Function Call: WRITE	Prompt: $C(32) Line Location: N4+4
Function Call: WRITE	Prompt: ! Line Location: N4+5
Function Call: WRITE	Prompt: !,"PROVIDER: ...Select a Provider....." Line Location: N5+1
Function Call: WRITE	Prompt: ! Line Location: N5+3
Function Call: WRITE	Prompt: $C(32) Line Location: N5+4
Function Call: WRITE	Prompt: ! Line Location: N5+5
Function Call: WRITE	Prompt: !,"ICD CODE: ...Select a DIAGNOSIS Code....." Line Location: N6+1
Function Call: WRITE	Prompt: ! Line Location: N6+3
Function Call: WRITE	Prompt: $C(32) Line Location: N6+4
Function Call: WRITE	Prompt: ! Line Location: N6+5
Function Call: WRITE	Prompt: !,"STOP CODE: ...Select an AMIS STOP Code....." Line Location: N7+1
Function Call: WRITE	Prompt: ! Line Location: N7+3
Function Call: WRITE	Prompt: $C(32) Line Location: N7+4
Function Call: WRITE	Prompt: ! Line Location: N7+5
Function Call: WRITE	Prompt: !,"ENCOUNTERS: ...Select an ENCOUNTER ....." Line Location: N8+1
Function Call: WRITE	Prompt: ! Line Location: N8+3
Function Call: WRITE	Prompt: $C(32) Line Location: N8+4
Function Call: WRITE	Prompt: ! Line Location: N8+5
Function Call: WRITE	Prompt: $P(REQE,"^",1)_" "_$P(REQE,"^",2),IOELEOL Line Location: ZP1+2
Function Call: WRITE	Prompt: $P(REQE,"^",5)_" "_$P(REQE,"^",6),IOELEOL Line Location: ZP4+2

Name	Line Occurrences
@(	REQ+2, PRINT+2, RSET+2

Name	Field # of Occurrence
CATEGORY	RSET~, RSET+2
ENTRY	REQ+1~, ZP2+2, ZP3+2, ZP5+2*
>> IOELEOL	ZP1+2, ZP4+2
IOM	N4+4, N5+4, N6+4, N7+4, N8+4
NO	REQ~, REQ+2, PRINT~, PRINT+2
REQ	CPT+3!
>> REQE	ZP1+1, ZP1+2, ZP2+1, ZP2+2, ZP3+1, ZP3+2, ZP4+1, ZP4+2, ZP5+1, ZP5+2 , CPT+1, CPT+2, PRV+1, PRV+2, POV+1, POV+2, STP+1, STP+2
>> REQI	CPT+1, CPT+2, PRV+1, PRV+2, POV+1, POV+2, STP+1, STP+2
>> VAR	REQ+2, PRINT+2, RSET+2*