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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGOTHMG2

Package: Registration

Routine: DGOTHMG2


Information

DGOTHMG2 ;SHRPE/YMG - OTH Management actions (cont.) ;04/30/19

Source Information

Source file <DGOTHMG2.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 5 $$CHKKEY^DGOTHMG1  (BLD,BLDHDR)^DGOTHMGT  ($$FILAUTH,$$FILDEN,$$FILPEND,$$GET365DT,$$GET90DT,$$GETPEND,$$LASTPRD)^DGOTHUT1  DEM^VADPT  $$SITE^VASITE  
Kernel 3 ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT  ($$CJ,$$UP)^XLFSTR  $$NAME^XUSER  
List Manager 2 CHGCAP^VALM  (CLEAR,FULL)^VALM1  
Income Verification Match 1 EVENT^IVMPLOG  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Registration 8 DG OTH ADD 90 DAYS  DGOTHMG1  DGOTHRP1  DGOTHRP2  DGOTHRP3  DGOTHRP5  DGOTHRP6  DGOTHRPT  

Entry Points

Name Comments DBIA/ICR reference
AP ; add 90 day period
CLRPND(DGDFN) ; clear existing pending request
ASKCONT ; display "press <Enter> to continue" prompt
HEADER(DFN) ;
DISPERR(DGERR) ; display error message
ASKREQDT(MAXDT,DEFDT) ; prompt for date request submitted
ASKAUAP() ; prompt for authorization approved
ASKAUCMT() ; prompt for authorization comment
ASKAUBY() ; prompt for authorized by
ASKAURDT(MAXDT) ; prompt for authorization received date
ASKSTDT(MINDT,MAXDT) ; prompt for period start date
CHRCHK(STR) ; check if give string contains one of the characters '|', '^', '&', '\', '~'

External References

Name Field # of Occurrence
$$CHKKEY^DGOTHMG1 AP+9, AP+57
BLD^DGOTHMGT AP+93, AP+135
BLDHDR^DGOTHMGT AP+94, AP+114, AP+136
$$FILAUTH^DGOTHUT1 AP+83
$$FILDEN^DGOTHUT1 AP+127
$$FILPEND^DGOTHUT1 AP+110, CLRPND+5
$$GET365DT^DGOTHUT1 AP+22
$$GET90DT^DGOTHUT1 AP+17
$$GETPEND^DGOTHUT1 AP+37
$$LASTPRD^DGOTHUT1 AP+14
^DIR ASKREQDT+14, ASKAUAP+12, ASKAUCMT+9, ASKAUBY+9, ASKAURDT+12, ASKSTDT+18
EVENT^IVMPLOG AP+97, AP+117, AP+139
DEM^VADPT HEADER+2
CHGCAP^VALM AP+92, AP+134
CLEAR^VALM1 AP+6
FULL^VALM1 AP+6
$$SITE^VASITE AP+35
$$FMADD^XLFDT AP+54, AP+55, AP+57
$$FMDIFF^XLFDT AP+53, AP+65
$$FMTE^XLFDT AP+20, AP+21, AP+23, AP+28, AP+41, AP+87, ASKREQDT+10, ASKREQDT+13, ASKAURDT+11, ASKSTDT+10
$$NOW^XLFDT AP+44
$$CJ^XLFSTR AP+113, AP+130, ASKCONT+2
$$UP^XLFSTR AP+35
$$NAME^XUSER AP+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"365 Day Period: ",$S(NUM365>0:NUM365,1:"None")
  • Line Location: AP+15
Function Call: WRITE
  • Prompt: !," 90 Day Period: ",$S(NUM90>0:NUM90,1:"None")
  • Line Location: AP+16
Function Call: WRITE
  • Prompt: !!,"Days Remaining: ",$S(SDT90>0:DAYS,1:"N/A")
  • Line Location: AP+25
Function Call: WRITE
  • Prompt: !!,"Patient has been authorized for 180 days or more of care",!
  • Line Location: AP+33
Function Call: WRITE
  • Prompt: !!,"Existing pending request has been removed.",!
  • Line Location: CLRPND+7
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Press <Enter> to continue.",80)
  • Line Location: ASKCONT+2
Function Call: WRITE
  • Prompt: ?24,"START ADDITIONAL 90-DAY PERIOD"
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"Patient Name: ",DGNAME,?60,"DOB: ",DGDOB
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,DDASH,!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !!,"Error while filing OTH data:",!,DGERR
  • Line Location: DISPERR+4
Routine Call
  • DIR
  • Line Location:
    • ASKREQDT+14
    • ASKAUAP+12
    • ASKAUCMT+9
    • ASKAUBY+9
    • ASKAURDT+12
    • ASKSTDT+18
Routine Call
  • VALM
  • Line Location:
    • AP+92
    • AP+134

Label References

Name Line Occurrences
$$ASKAUAP AP+46
$$ASKAUBY AP+76
$$ASKAUCMT AP+121
$$ASKAURDT AP+79
$$ASKREQDT AP+73, AP+101
$$ASKSTDT AP+59
ASKCONT AP+11, AP+30, AP+88, AP+113, AP+130, DISPERR+5
CLRPND AP+91, AP+133
DISPERR AP+38, AP+84, AP+111, AP+128, CLRPND+6
HEADER AP+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CRDTM AP+4~, AP+44*, AP+69, AP+108, AP+126
DAYS AP+4~, AP+18*, AP+25
DDASH HEADER+1~, HEADER+6*
DEFDT ASKREQDT~, ASKREQDT+10
DFN HEADER~
DGDFN AP+13, AP+37, AP+83, AP+91, AP+97, AP+110, AP+117, AP+127, AP+133, AP+139
, CLRPND~, CLRPND+5
DGDOB HEADER+1~, HEADER+3*, HEADER+5
DGERR DISPERR~, DISPERR+4
DGFAC AP+4~, AP+35*, AP+63, AP+107, AP+125
DGFRES AP+4~, AP+83*, AP+84, AP+85, AP+110*, AP+111, AP+112, AP+127*, AP+128, AP+129
, CLRPND+5*, CLRPND+6
>> DGIEN33 AP+14, AP+17, AP+22
DGIEN365 AP+4~, AP+14*, AP+22
DGIEN90 AP+4~, AP+14*
DGNAME HEADER+1~, HEADER+3*, HEADER+5
DGRES CLRPND+4~
>> DGSVDDF("A" AP+92
>> DGSVDDF("D" AP+134
DGUSR AP+4~, AP+35*, AP+62, AP+106, AP+124
DIR ASKREQDT+7~, ASKAUAP+4~, ASKAUCMT+4~, ASKAUBY+4~, ASKAURDT+6~, ASKSTDT+7~
DIR("?" ASKREQDT+11*, ASKREQDT+12*, ASKREQDT+13*, ASKAUAP+7*, ASKAUAP+8*, ASKAUAP+9*, ASKAUAP+10*, ASKAUAP+11*, ASKAUCMT+7*, ASKAUCMT+8*
, ASKAUBY+7*, ASKAUBY+8*, ASKAURDT+9*, ASKAURDT+10*, ASKAURDT+11*, ASKSTDT+14*, ASKSTDT+15*, ASKSTDT+16*, ASKSTDT+17*
DIR("A" ASKREQDT+9*, ASKAUAP+6*, ASKAUCMT+6*, ASKAUBY+6*, ASKAURDT+8*, ASKSTDT+13*
DIR("B" ASKREQDT+10*
DIR(0 ASKREQDT+8*, ASKAUAP+5*, ASKAUCMT+5*, ASKAUBY+5*, ASKAURDT+7*, ASKSTDT+11*
DIROUT ASKREQDT+7~, ASKAUAP+4~, ASKAUCMT+4~, ASKAUBY+4~, ASKAURDT+6~, ASKSTDT+7~
DIRUT ASKREQDT+7~, ASKAUAP+4~, ASKAUCMT+4~, ASKAUBY+4~, ASKAURDT+6~, ASKSTDT+7~
>> DSPMODE AP+89*, AP+93, AP+94, AP+114, AP+131*, AP+135, AP+136
DT AP+20, AP+21, AP+23, AP+27, AP+53, AP+54, AP+57, AP+73, AP+79, AP+101
DTDIFF AP+4~, AP+53*, AP+54, AP+57
DTIME ASKCONT+3
DTOUT ASKREQDT+7~, ASKREQDT+15, ASKAUAP+4~, ASKAUAP+13, ASKAUCMT+4~, ASKAUCMT+10, ASKAUBY+4~, ASKAUBY+10, ASKAURDT+6~, ASKAURDT+13
, ASKSTDT+7~, ASKSTDT+19
DTSTR365 AP+4~, AP+22*, AP+65
DTSTR90 AP+4~, AP+17*, AP+18
DUOUT ASKREQDT+7~, ASKREQDT+15, ASKAUAP+4~, ASKAUAP+13, ASKAUCMT+4~, ASKAUCMT+10, ASKAUBY+4~, ASKAUBY+10, ASKAURDT+6~, ASKAURDT+13
, ASKSTDT+7~, ASKSTDT+19
DUZ AP+35
EDT365 AP+4~, AP+22*, AP+23
EDT90 AP+4~, AP+18*, AP+21, AP+53, AP+54, AP+57
MAXDT AP+4~, AP+55*, AP+59, ASKREQDT~, ASKREQDT+8, ASKREQDT+13, ASKAURDT~, ASKAURDT+7, ASKAURDT+11, ASKSTDT~
, ASKSTDT+10, ASKSTDT+11
MAXDTE ASKSTDT+8~, ASKSTDT+10*, ASKSTDT+17
MINDT AP+4~, AP+54*, AP+55, AP+57*, AP+59, ASKSTDT~, ASKSTDT+10, ASKSTDT+11
MINDTE ASKSTDT+8~, ASKSTDT+10*, ASKSTDT+16
NUM365 AP+4~, AP+14*, AP+15, AP+65, AP+67
NUM90 AP+4~, AP+14*, AP+16, AP+33, AP+67
OTHDATA AP+4~, AP+60*, AP+62*, AP+63*, AP+65*, AP+67*, AP+69*, AP+70, AP+74*, AP+77*
AP+80*, AP+83, AP+87, AP+104*, AP+105*, AP+106*, AP+107*, AP+108*, AP+110, AP+122*
AP+123*, AP+124*, AP+125*, AP+126*, AP+127
PNDREQ AP+4~, AP+37*, AP+38, AP+39, AP+44, AP+91, AP+133
PNDSTR AP+4~, AP+37*, AP+38, AP+41, AP+44, AP+73, AP+101
REQTYPE AP+5~, AP+46*, AP+48, AP+103
SDT90 AP+5~, AP+18*, AP+19, AP+20, AP+25, AP+27, AP+28
STARTDT AP+5~, AP+59*, AP+60, AP+65
STOP AP+5~, AP+70*, AP+73*, AP+76*, AP+79*
STR CHRCHK~, CHRCHK+6
SUBDT AP+5~, AP+73*, AP+74, AP+101*, AP+105, AP+122
U AP+14, AP+17, AP+18, AP+22, AP+35, AP+37, AP+38, AP+41, AP+44, AP+60
AP+62, AP+63, AP+65, AP+67, AP+69, AP+70, AP+73, AP+74, AP+77, AP+80
AP+84, AP+87, AP+101, AP+104, AP+105, AP+106, AP+107, AP+108, AP+111, AP+122
AP+123, AP+124, AP+125, AP+126, AP+128, CLRPND+6, HEADER+3
VADM HEADER+1~
VADM(1 HEADER+3
VADM(3 HEADER+3
>> VALMBCK AP+7*
VALMDDF AP+92!*, AP+134!*
X ASKREQDT+7~, ASKAUAP+4~, ASKAUCMT+4~, ASKAUBY+4~, ASKAURDT+6~, ASKSTDT+7~
Y ASKREQDT+7~, ASKREQDT+16, ASKAUAP+4~, ASKAUAP+14, ASKAUCMT+4~, ASKAUCMT+11, ASKAUBY+4~, ASKAUBY+11, ASKAURDT+6~, ASKAURDT+14
, ASKSTDT+7~, ASKSTDT+20
Z AP+5~, AP+14*, AP+17, AP+76*, AP+77, AP+79*, AP+80, AP+121*, AP+123, ASKCONT+1~
ASKCONT+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All