Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 5 DD^%DT  ^DIC  ^DIE  IXALL^DIK  ^DIR  

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

External References

Name Field # of Occurrence
DD^%DT SEL1+7, SEL+8, ALL+3
^DIC SELECT1+4, SELECT+4
^DIE MSUB+8
IXALL^DIK RENDX+2
^DIR CHOICE+5, CHOICE1+5

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
Routine Call
  • DIC
  • Line Location:
    • SELECT1+4
    • SELECT+4
Routine Call
  • DIE
  • Line Location:
    • MSUB+8
Routine Call
  • DIR
  • Line Location:
    • CHOICE+5
    • CHOICE1+5

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] SEL1+3, SEL+11, ALL+11, SUBPRNT+11
^DPT - [#2] SEL1+10, SEL1+11, SEL+3, SEL+4, SEL+11, GATHER+8, ALL+6, ALL+7, ALL+11, MSUB+2
, MSUB+6, SUBPRNT+7, SUBPRNT+11
^IBE(351.71 - [#351.71] MDATE+1, MDATE+2*
^TMP("IB20P244" SELECT1+5, SELECT1+8*, SEL1+2, SEL1+5, SEL1+9, SEL1+13, SELECT+5, SELECT+8*, SEL+2, SEL+6
, SEL+10, SUBEXIT+1!, GATHER!, GATHER+7*, GATHER+9*, GATHER+10, SUBPRNT+2!, SUBPRNT+13*, SUBPRNT+14, SUBPRNT+16
, SUBPRNT+18, SUBPRNT+20, SUBPRNT+22, SUBPRNT+23, SUBPRNT+24!
^XTMP("IB20P244" UNDOALL+4, UNDOP+2, UNDOP+5, UNDOP+7, UNDOF+2, UNDOF+5, UNDOF+7, MDATE+2, MDATE+3*, MDATE+4!
, UNDOSUB+4, GATHER+2, GATHER+4, GATHER+6, ALL+2, ALL+5, ALL+9, MSUB+1, MSUB+3*, MSUB+4!
, MSUB+5, MSUB+10*, MSUB+11!, SUBPRNT+4, SUBPRNT+6, SUBPRNT+10, SUBPRNT+13

Label References

Name Line Occurrences
ALL UNDOSUB+5, CHOICE+10
CHOICE CHOICE+9, CHOICE1+9
CHOICE1 CHOICE1+10, SELECT1+5, SELECT+5
GATHER SELINS, SELPAT
MDATE UNDOP+9, UNDOF+9
MSUB SEL1+14, SEL+12, ALL+12
RENDX UNDOP+12, UNDOF+12
SEL SELECT+6
SEL1 SELECT1+6
SELECT SELECT+9
SELECT1 SELECT1+9
SELINS SEL1+16
SELPAT CHOICE1+11, SEL+14
SUBEXIT CHOICE+8
UNDOF UNDOALL+6
UNDOP UNDOALL+5
UNDOSUB UNDOALL+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALL UNDOALL+2~, UNDOALL+3*, UNDOP+2, UNDOP+12, UNDOF+2, UNDOSUB+4, UNDOSUB+5
DA UNDOSUB+2~, MSUB+8*
DA(1 MSUB+8*
DATE MDATE~, MDATE+1, MDATE+2, MDATE+3, MDATE+4, MDATE+5
DFN UNDOSUB+2~, SEL1+8*, SEL1+9*, SEL1+10, SEL1+11, SEL1+13, SELECT+7*, SELECT+8, SEL+1*, SEL+2*
, SEL+3, SEL+4, SEL+6, SEL+10, SEL+11, GATHER+3*, GATHER+4*, GATHER+6, GATHER+7, GATHER+8
, GATHER+9, ALL+4*, ALL+5*, ALL+6, ALL+7, ALL+9, ALL+11, MSUB+1, MSUB+2, MSUB+3
, MSUB+4, MSUB+5, MSUB+6, MSUB+8, MSUB+10, MSUB+11, SUBPRNT+1~, SUBPRNT+5*, SUBPRNT+6*, SUBPRNT+7
, SUBPRNT+10, SUBPRNT+11, SUBPRNT+13
DIC SELECT1+3*, SELECT+3*, SUBEXIT+2!
DIC("A" SELECT1*, SELECT*
DIC("S" SELECT1+2*, SELECT+2*
DIC(0 SELECT1+1*, SELECT+1*
DIE UNDOSUB+2~, MSUB+8*
DIK RENDX+2*!
DIR SUBEXIT+2!
DIR("?" CHOICE+3*, CHOICE1+3*
DIR("A" CHOICE*, CHOICE1*
DIR("B" CHOICE+1*, CHOICE1+1*
DIR("T" CHOICE+2*, CHOICE1+2*
DIR(0 CHOICE+4*, CHOICE1+4*
DR UNDOSUB+2~, MSUB+8*
DRTYP MDATE~, MDATE+3
DTOUT CHOICE+8, CHOICE1+9, SELECT1+5, SELECT+5, SUBEXIT+2!
DTYP MDATE~, MDATE+2, MDATE+3, MDATE+4
DUOUT CHOICE+8, CHOICE1+9, SELECT1+5, SELECT+5, SUBEXIT+2!
FCNT UNDOF+1~, UNDOF+3*, UNDOF+8*, UNDOF+11, UNDOF+12
FDATE UNDOF+1~, UNDOF+6*, UNDOF+7*, UNDOF+9
IBDATE UNDOSUB+2~, SEL1+7*, SEL+8*, ALL+3*, MSUB+9
IBDIK UNDOALL+2~, UNDOALL+3*, UNDOP+12*!, UNDOF+12
IBINS UNDOSUB+2~, SELECT1+7*, SELECT1+8, SEL1+12*, SEL1+13*, SEL+9*, SEL+10*, SEL+11, GATHER+5*, GATHER+6*
, GATHER+7, GATHER+8, GATHER+9, ALL+8*, ALL+9*, ALL+11, MSUB+1, MSUB+2, MSUB+3, MSUB+4
, MSUB+5, MSUB+6, MSUB+8, MSUB+10, MSUB+11, SUBPRNT+1~, SUBPRNT+9*, SUBPRNT+10*, SUBPRNT+11, SUBPRNT+13
, SUBPRNT+21*, SUBPRNT+22*, SUBPRNT+23
IBINSCO UNDOSUB+2~, SEL1+1*, SEL1+2*, SEL1+3, SEL1+5, SEL1+9, SEL1+13, GATHER+8*, GATHER+9
IBINSNM UNDOSUB+2~, SEL1+3*, SEL+11*, ALL+11*, MSUB+2, MSUB+6, MSUB+7, MSUB+9, SUBPRNT+1~, SUBPRNT+11*
, SUBPRNT+12*, SUBPRNT+13, SUBPRNT+15*, SUBPRNT+16*, SUBPRNT+18, SUBPRNT+20, SUBPRNT+22, SUBPRNT+23
IBJ UNDOP+1~, UNDOP+4*, UNDOP+5*, UNDOP+7, UNDOF+1~, UNDOF+4*, UNDOF+5*, UNDOF+7, MDATE+2, MDATE+3
, MDATE+4, UNDOSUB+2~, SEL1+4*, SEL1+5*, SEL1+6, SEL1+9, SEL1+13, SEL+5*, SEL+6*, SEL+7
, SEL+10, GATHER+1*, GATHER+2*, GATHER+4, GATHER+6, GATHER+7, GATHER+9, ALL+1*, ALL+2*, ALL+3
, ALL+5, ALL+9, ALL+12, SUBPRNT+1~, SUBPRNT+3*, SUBPRNT+4*, SUBPRNT+6, SUBPRNT+10, SUBPRNT+13, SUBPRNT+19*
, SUBPRNT+20*, SUBPRNT+22, SUBPRNT+23
IBJN UNDOSUB+2~, SEL1+6*, SEL1+7, SEL1+14, SEL+7*, SEL+8, SEL+12, MSUB~, MSUB+1, MSUB+3
, MSUB+4, MSUB+5, MSUB+10, MSUB+11
IBNAME UNDOSUB+2~, SEL1+10*, SEL+3*, ALL+6*, MSUB+2, MSUB+6, MSUB+7, MSUB+9, SUBPRNT+1~, SUBPRNT+7*
, SUBPRNT+8*, SUBPRNT+13, SUBPRNT+17*, SUBPRNT+18*, SUBPRNT+20, SUBPRNT+22, SUBPRNT+23
IBNODATA UNDOSUB+2~, CHOICE1+6*, SELINS, SELPAT, GATHER+10*
IBSSN UNDOSUB+3~, SEL1+11*, SEL+4*, ALL+7*, MSUB+2, MSUB+6, MSUB+7, MSUB+9
IBSUB UNDOSUB+3~, MSUB+1*, MSUB+2, MSUB+7, MSUB+8
IBSUB1 UNDOSUB+3~, MSUB+5*, MSUB+6
PCNT UNDOP+1~, UNDOP+3*, UNDOP+8*, UNDOP+11, UNDOP+12
PDATE UNDOP+1~, UNDOP+6*, UNDOP+7*, UNDOP+9
SCNT UNDOSUB+3~, ALL*, ALL+10*, ALL+14
SEL UNDOSUB+3~, CHOICE1+11*, CHOICE1+13*, GATHER+7
U SELECT1+7, SEL1+3, SEL1+10, SEL1+11, SELECT+7, SEL+3, SEL+4, SEL+11, GATHER+8, ALL+6
, ALL+7, ALL+11, MSUB+2, MSUB+6, SUBPRNT+7, SUBPRNT+11
X UNDOSUB+3~, CHOICE+6, CHOICE+7, CHOICE1+7, CHOICE1+8, SELECT1+5, SELECT1+6, SELECT1+9*, SELECT+5, SELECT+6
, SELECT+9*
Y UNDOSUB+3~, CHOICE+6*, CHOICE+7*, CHOICE+8, CHOICE+9, CHOICE+10, CHOICE1+7*, CHOICE1+8*, CHOICE1+9, CHOICE1+10
, CHOICE1+11, SELECT1+7, SELECT1+9*, SEL1+7*, SELECT+7, SELECT+9*, SEL+8*, ALL+3*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All