Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IB20R244

Package: Integrated Billing

Routine: IB20R244


Information

IB20R244 ;ISP/TDP - Restoral routine for IB*2.0*244 ;10/14/2003

Source Information

Source file <IB20R244.m>

Entry Points

Name Comments DBIA/ICR reference
UNDOALL ;Undoes all the changes made by the post-init routine, based on what
UNDOP ;Restore the past date entries in file 351.71 which were deleted.
UNDOF ;Restore the future date entries in file 351.71 which were deleted.
RENDX ;Re-index file 351.71.
MDATE(DATE,DTYP,DRTYP) ;Common date functionality merge/kill
UNDOSUB ;Restore original SUBSCRIBER ID'S modified in the INSURANCE TYPE
CHOICE
CHOICE1
SELINS
SELECT1
SEL1 ;RESTORE SELECTED INSURANCE COMPANY SUBSCRIBER ID'S
SELPAT
SELECT
SEL ;RESTORE SELECTED PATIENTS SUBSCRIBER ID'S
SUBEXIT ;Cleans up temp globals
GATHER
ALL
MSUB(IBJN) ;Common subscriber id functionality merge/kill
SUBPRNT ;Allows user to print an excel friendly list of subscriber id's changed

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There is no data to restore."
  • Line Location: UNDOALL+4
Function Call: WRITE
  • Prompt: !!,"Data restoral complete."
  • Line Location: UNDOALL+8
Function Call: WRITE
  • Prompt: !,"There is no data to restore."
  • Line Location: UNDOP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: UNDOP+10
Function Call: WRITE
  • Prompt: !,"There are no past date entries to restore for file 351.71."
  • Line Location: UNDOP+11
Function Call: WRITE
  • Prompt: !,"There is no data to restore."
  • Line Location: UNDOF+2
Function Call: WRITE
  • Prompt: !
  • Line Location: UNDOF+10
Function Call: WRITE
  • Prompt: !,"There are no future date entries to restore for file 351.71."
  • Line Location: UNDOF+11
Function Call: WRITE
  • Prompt: !!,"Re-indexing file 351.71..."
  • Line Location: RENDX+1
Function Call: WRITE
  • Prompt: "Done"
  • Line Location: RENDX+3
Function Call: WRITE
  • Prompt: !,"Entry already exists for "_DATE_". Skipping restoral of this date entry."
  • Line Location: MDATE+1
Function Call: WRITE
  • Prompt: !,"The entry for "_DATE_" has been restored."
  • Line Location: MDATE+5
Function Call: WRITE
  • Prompt: !,"There is no data to restore."
  • Line Location: UNDOSUB+4
Function Call: WRITE
  • Prompt: !
  • Line Location: UNDOSUB+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOICE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOICE1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOICE1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL1+15
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+13
Function Call: WRITE
  • Prompt: !,"There is no subscriber id data to restore!"
  • Line Location: GATHER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+13
Function Call: WRITE
  • Prompt: !,"There are no SUBSCRIBER ID entries to restore in the INSURANCE TYPE",!," SUB-FIELD (#2.312) file of the PATIENT (#2) file."
  • Line Location: ALL+14
Function Call: WRITE
  • Prompt: !,"SUBSCRIBER ID for "_IBNAME_" ("_IBSSN_"), entry "_IBINSNM_",",!," has already been restored!"
  • Line Location: MSUB+2
Function Call: WRITE
  • Prompt: !,"SUBSCRIBER ID for "_IBNAME_" ("_IBSSN_"), entry "_IBINSNM_", has been",!," changed since data conversion. Skipping restoral of this SUBSCRIBER ID."
  • Line Location: MSUB+6
Function Call: WRITE
  • Prompt: !!,"Original SUBSCRIBER ID contains a semi-colon (;). Unable to restore",!," SUBSCRIBER ID for "_IBNAME_" ("_IBSSN_"), insurance",!," company "_IBINSNM_". Use Fileman to enter",!," ID of """_IBSUB_""".",!
  • Line Location: MSUB+7
Function Call: WRITE
  • Prompt: !,"The SUBSCRIBER ID for "_IBNAME_" ("_IBSSN_"),",!," insurance company "_IBINSNM_", has been restored",!," from the "_IBDATE_" data conversion."
  • Line Location: MSUB+9
Function Call: WRITE
  • Prompt: !,"THERE IS NO DATA TO DISPLAY"
  • Line Location: SUBPRNT+14
Function Call: WRITE
  • Prompt: !,IBINSNM_"^"_IBNAME_"^"_$G(^TMP("IB20P244",$J,"SUB",IBINSNM,IBNAME,IBJ,IBINS))
  • Line Location: SUBPRNT+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBE(351.71 - [#351.71] Classic Fileman Calls
^DIC(36 - [#36] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call