FBAAUTL1 ;AISC/GRR - Fee Basis Utility Routine ;9/12/2012
Source file <FBAAUTL1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PLUSOB | ;ENTRY POINT TO INCREASE OBLIGATION ADJUSTMENT
|
|
VALCK | ;DETERMINE VALIDITY OF RESPONSE
|
|
HELPYN | ;DISPLAY HELP TEXT FOR YES OR NO
|
|
GETVET | ||
GETAUTH | ||
RD | ||
CHOOS | ||
2 |
|
|
Q | ||
GETAUTHK | ; kill new authorization variables output from GETAUTH
|
|
DAYS | ;CALCULATES THE NUMBER OF DAYS IN MONTH
|
|
DATCK2 | ||
DATCK3 | ||
WRONGT | ;WRONG TYPE OF AUTHORIZATION SELECTED
|
|
GETVEN | ;LOOKUP VENDOR
|
|
HANG | ;IF $E(IOST,1,2)["C-" ASK TO CONTINUE
|
|
CKOB | ||
CK1358 | ;CHECK TO SEE IF 1358 AVAILABLE
|
|
NOAUTH | ||
LOCK | ||
XSET | ;SET X-REF IN FILE 161.27 FOR LOOK-UP BY SHORT DESCRIPTION
|
|
XKILL | ;
|
|
TRANS | ;
|
|
VER() | ;no parameters passed
|
|
ADD | ;call to add money back into 1358 when version of IFCAP>3.6
|
|
ASKVET(FBSCR) | ; Prompt for patient
; input FBSCR - (optional) screen logic for DIC lookup ; e.g. I $D(^FBAAC("AH",12,+Y)) ; returns IEN of patient in file 161 or 0 if none selected |
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 |
|
FileNo | Call Tags |
---|---|
^FBAAA - [#161] | Classic Fileman Calls |