RACPT1 ;HISC/GJC,FPT-Procedure/CPT Stats Report ;12/29/00 11:28
Source file <RACPT1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CHK | ;
|
|
DATE | ||
; Output data
; 01/19/2006 KAM/BAY Changed next line to utilize $$NAMCODE^RACPTMSC |
||
HED | ; Issue header
|
|
HANG | ; get to the EOP
|
|
HANG1 | ; Issue EOP prompt
|
|
SRTPA(RA) | ; Check on the sort parameters. If inpatient and outpatient,
; issue a EOP prompt when the sort parameter changes. ; '1' implies that we are sorting by both inpatient/outpatient and ; are on the second parameter, '0' implies that we fail the above ; conditions. |
|
PROCNUM() | ; Determine the number of procedures a user has chosen.
|
|
YESNO() | ; Pass back the user's response to the 'Yes/No' question
; returns: 0=user answers No, 1=user answers Yes, -1='^' or timeout |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|