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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGOTHINQ

Package: Registration

Routine: DGOTHINQ


Information

DGOTHINQ ;SLC/RM,RED - OTHD (OTHER THAN HONORABLE DISCHARGE) APIs ; August 03,2018@13:16

Source Information

Source file <DGOTHINQ.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 3 $$GETPAT^DGOTHD2  $$GET90DT^DGOTHUT1  DEM^VADPT  
VA FileMan 3 ^DIC  $$GET1^DID  ($$GET1,GETS)^DIQ  
Kernel 2 $$FMTE^XLFDT  $$STA^XUAF4  

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: 6

Package Total Caller Graph
Registration 6 DG OTH PATIENT INQUIRY  DGOTHFS2  DGOTHMG1  DGOTHRP1  DGOTHRP3  DGOTHRP5  

Entry Points

Name Comments DBIA/ICR reference
EN ;
PATDISP
PRNTD(DGRES) ;print OTH patient countdown clock demographics
MSG(DGSTAT,DGARR,DGIEN33) ;display inactivation/adjudication message
HEADER(DFN,DGSTAT) ;
RESULT(DGARR,DG90A,DGIEN33) ;get the result for OTH patient
DSPLY4(CLCKNO) ;
DSPLY5(DGRES,CLCKNO) ;
HIST ; display the history of the PE/EXP changes
STATUS(DGARR) ; return OTH patient status DG*5.3*1016
CLOCK(DGIEN33) ;
SELPAT(DGPAT) ;
CROSS(DGIEN33,DGOTHIST) ;
OTHTYP(OTHCTYP) ;Extract OTHER THAN HONORABLE set of codes

External References

Name Field # of Occurrence
$$GETPAT^DGOTHD2 PATDISP+4
$$GET90DT^DGOTHUT1 RESULT+9
^DIC SELPAT+6
$$GET1^DID OTHTYP+7
$$GET1^DIQ PATDISP+16, MSG+5, MSG+6, CROSS+10, CROSS+12, CROSS+13
GETS^DIQ PATDISP+6
DEM^VADPT HEADER+2
$$FMTE^XLFDT PATDISP+25, HEADER+5, DSPLY5+3, DSPLY5+4, DSPLY5+5, DSPLY5+7, DSPLY5+8, DSPLY5+9, DSPLY5+11, DSPLY5+12
, DSPLY5+13, DSPLY5+15, DSPLY5+16, DSPLY5+17, DSPLY5+19, DSPLY5+20, DSPLY5+21, DSPLY5+29, HIST+10
$$STA^XUAF4 HIST+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PATDISP+5
Function Call: WRITE
  • Prompt: !!,"Error"_$S($L($P(DGRES,U,2))>0:": "_$P(DGRES,U,2),1:""),!,"Please select another patient.",!
  • Line Location: PATDISP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PATDISP+15
Function Call: WRITE
  • Prompt: !!,"OTH patient type: ",$$GET1^DIQ(33.02,DGIEN332_","_DGIEN33_",",".03")
  • Line Location: PATDISP+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: PATDISP+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: PATDISP+28
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !?10,"** INACTIVE **"
  • Line Location: MSG+7
Function Call: WRITE
  • Prompt: ?19,"OTHER THAN HONORABLE PATIENT INQUIRY"
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"Patient Name: ",DGNAME," (",DGSSN,") ",?57,"DOB: ",$$FMTE^XLFDT(DGDOB)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !?12,"OTHER THAN HONORABLE STATUS: ",$S(DGSTAT=1:"ACTIVE",DGSTAT=2:"**PENDING**",DGSTAT=3:" **INACTIVE**",1:"")," "
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !?20,"CURRENT ELIGIBILITY: ",$S($$OTHTYP($P(OTH90,U,2)):"Expanded MH/"_$P(OTH90,U,2),1:$P(OTH90,U,2)),!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: " 365 Day Period: ",$S(DGLS365D=1:DGLS365D,1:DGLS365D_" *"),!!," 90 Day Period: ",CLCKNO
  • Line Location: DSPLY4+1
Function Call: WRITE
  • Prompt: !!," 90 Day Period: ",CLCKNO
  • Line Location: DSPLY4+2
Function Call: WRITE
  • Prompt: " (*Pending*)"
  • Line Location: DSPLY5+24
Function Call: WRITE
  • Prompt: !?5,"Start Date: ",OTHSMRY(CLCKNO,SEQ)
  • Line Location: DSPLY5+25
Function Call: WRITE
  • Prompt: ?30,"End Date: ",OTHSMRY(CLCKNO,SEQ)
  • Line Location: DSPLY5+26
Function Call: WRITE
  • Prompt: !!?8,"Pending Auth request submitted: ",$P($$FMTE^XLFDT($G(DGARR(33,DGIEN33_",",.05,"I")),"5Z"),"@")
  • Line Location: DSPLY5+29
Function Call: WRITE
  • Prompt: !!?15,"Primary Eligibility/Expanded Care Type History",!
  • Line Location: HIST+2
Function Call: WRITE
  • Prompt: DDASH,!,"None on file"
  • Line Location: HIST+3
Function Call: WRITE
  • Prompt: DDASH,"Primary Eligibility",?35,"Expanded Care",?50,"Date of",?65,"Division",!,?35,"Type",?50,"Change",!,DDASH
  • Line Location: HIST+4
Function Call: WRITE
  • Prompt: !,$S($P(DGLINE,U)="":"N/A",$$OTHTYP($P(DGLINE,U)):"EXPANDED MH CARE NON-ENROLLEE",1:$P(DGLINE,U))
  • Line Location: HIST+8
Function Call: WRITE
  • Prompt: ?50,$$FMTE^XLFDT($P(DGLINE,U,2),"5Z"),?65,$$STA^XUAF4($P(DGLINE,U,3))
  • Line Location: HIST+10
Routine Call
  • DIC
  • Line Location:
    • SELPAT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DID
^DGOTH(33 - [#33] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
33.02 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGOTH(33 - [#33] PATDISP+16, MSG+3, MSG+4, CLOCK+2, CLOCK+3, CLOCK+5, CLOCK+6, CLOCK+7, CROSS+8, CROSS+9
, CROSS+10

Label References

Name Line Occurrences
$$CROSS PATDISP+3
$$OTHTYP HEADER+8, HIST+8, HIST+9
$$RESULT PATDISP+10
$$SELPAT EN+6
$$STATUS PATDISP+8
CLOCK PATDISP+7
DSPLY4 PATDISP+17, PRNTD+4
DSPLY5 PATDISP+17, PRNTD+4
HEADER PATDISP+9, PATDISP+13, PATDISP+22, PATDISP+28
HIST PATDISP+9, PATDISP+14, PATDISP+17, PATDISP+23, PATDISP+28, PATDISP+29, PATDISP+30
MSG PATDISP+18, PATDISP+26
PATDISP EN+8
PRNTD PATDISP+23, PATDISP+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTIVE CROSS+7~, CROSS+13*, CROSS+16
CLCKNO DSPLY4~, DSPLY4+1, DSPLY4+2, DSPLY5~, DSPLY5+2, DSPLY5+3, DSPLY5+4, DSPLY5+5, DSPLY5+6, DSPLY5+7
, DSPLY5+8, DSPLY5+9, DSPLY5+10, DSPLY5+11, DSPLY5+12, DSPLY5+13, DSPLY5+14, DSPLY5+15, DSPLY5+16, DSPLY5+17
, DSPLY5+18, DSPLY5+19, DSPLY5+20, DSPLY5+21, DSPLY5+23, DSPLY5+24, DSPLY5+25, DSPLY5+26, DSPLY5+27, DSPLY5+29
DATASTR RESULT+7~, RESULT+9*, RESULT+10, RESULT+11, RESULT+12
DDASH HEADER+1~, HEADER+6*, HIST+1*, HIST+3, HIST+4
DFN EN+4~, PATDISP+4*, PATDISP+9, PATDISP+13, PATDISP+22, PATDISP+28, HEADER~
DG90A PATDISP+1~, PATDISP+9, PATDISP+10, RESULT~
DG90A( DSPLY5+29, CLOCK+6*
DG90A(1 PATDISP+9, PATDISP+12, PATDISP+19
DG90A(2 PATDISP+12, PATDISP+19
DG90A(9 PRNTD+2
DGARR EN+6, PATDISP+1~, PATDISP+8, PATDISP+10, PATDISP+18, PATDISP+26, MSG~, RESULT~, STATUS~
DGARR( RESULT+13, RESULT+16
DGARR(33 DSPLY5+29, STATUS+5, STATUS+6, STATUS+8, STATUS+11
DGAUTH RESULT+1~, RESULT+13*, RESULT+15, RESULT+19
DGCHDT CROSS+7~, CROSS+12*, CROSS+16, CROSS+17
DGCLCK PRNTD+1~, PRNTD+2*, PRNTD+3
DGCLCK( RESULT+6, RESULT+8, CLOCK+7*
DGCNT CROSS+7~*, CROSS+11*, CROSS+12, CROSS+13, CROSS+16, CROSS+17
DGDATE RESULT+1~, RESULT+3*
DGDIFF RESULT+7~, RESULT+12*, RESULT+14, RESULT+15, RESULT+19
DGDOB HEADER+1~, HEADER+3*, HEADER+5
DGENDT RESULT+7~, RESULT+11*, RESULT+14, RESULT+15
DGERR OTHTYP+5~, OTHTYP+8
DGFAC CROSS+7~, CROSS+13*, CROSS+17
DGFLG PATDISP+1~, PATDISP+2*, PATDISP+24*, PATDISP+27
DGHIST CROSS+7~
DGIEN33 EN+4~, EN+6*, EN+7, PATDISP+3, PATDISP+4, PATDISP+6, PATDISP+7, PATDISP+10, PATDISP+16, PATDISP+18
, PATDISP+26, MSG~, MSG+3, MSG+4, MSG+5, MSG+6, RESULT~, RESULT+8, RESULT+9, DSPLY5+29
, HIST+5, HIST+6, STATUS+5, STATUS+6, STATUS+8, STATUS+11, CLOCK~, CLOCK+2, CLOCK+3, CLOCK+5
, CLOCK+6, CLOCK+7, CROSS~, CROSS+8, CROSS+9, CROSS+10, CROSS+12, CROSS+13, CROSS+17
DGIEN332 PATDISP+1~, PATDISP+16*, HEADER+1~*
DGIENS RESULT+1~, RESULT+8*, RESULT+13, RESULT+16
DGLINE HIST+1~, HIST+6*, HIST+7, HIST+8, HIST+9, HIST+10
DGLOOP EN+1~, EN+2*, EN+3, EN+7*
DGLS365D PATDISP+1~, PATDISP+16, RESULT+4, DSPLY4+1, CLOCK+2*, CLOCK+3, CLOCK+4
DGLS365I PATDISP+1~, CLOCK+3*, CLOCK+4
DGLSDT MSG+1~, MSG+3*, MSG+4
DGN CLOCK+1~, CLOCK+5*, CLOCK+6, CLOCK+7
DGNAME HEADER+1~, HEADER+3*, HEADER+5
DGNEW CROSS+7~
DGNEWN CROSS+7~, CROSS+12*, CROSS+14*, CROSS+15*, CROSS+16, CROSS+17
DGNOT PATDISP+1~, PATDISP+2*
DGOTHIST EN+1~, PATDISP+1~, PATDISP+3, HIST+3, CROSS~, CROSS+7!
DGOTHIST( HIST+5, HIST+6, CROSS+17*
DGOTHSOC OTHTYP+5~, OTHTYP+7*, OTHTYP+9
DGPAT SELPAT~, SELPAT+8*, SELPAT+10, SELPAT+11*
DGPAT(0 SELPAT+12*
DGPSTAT STATUS+1~, STATUS+2*, STATUS+6*, STATUS+8*, STATUS+11*, STATUS+13
DGPTNM EN+4~, EN+6*
DGPTTYP PATDISP+1~, PATDISP+2*, PATDISP+16*
DGRES PATDISP+1~, PATDISP+10*, PATDISP+11, PATDISP+17, PATDISP+21, PATDISP+23, PATDISP+29, PRNTD~, PRNTD+4, RESULT+2*
, RESULT+14*, RESULT+20, DSPLY5~, DSPLY5+3, DSPLY5+4, DSPLY5+5, DSPLY5+7, DSPLY5+8, DSPLY5+9, DSPLY5+11
, DSPLY5+12, DSPLY5+13, DSPLY5+15, DSPLY5+16, DSPLY5+17, DSPLY5+19, DSPLY5+20, DSPLY5+21
DGRET EN+1~, PATDISP+1~
DGRET( RESULT+5*, RESULT+15*, RESULT+16, RESULT+18*, RESULT+19*
DGRQAUT PATDISP+1~, PATDISP+2*, PATDISP+20, PATDISP+25, RESULT+5*, RESULT+16*
DGRSN MSG+1~, MSG+5*, MSG+6*
DGRSNIN MSG+1~, MSG+4*, MSG+5
DGSDT RESULT+7~, RESULT+10*, RESULT+14, RESULT+15, RESULT+19
DGSSN HEADER+1~, HEADER+3*, HEADER+5
DGSTAT PATDISP+1~, PATDISP+2*, PATDISP+8*, PATDISP+9, PATDISP+13, PATDISP+14, PATDISP+18, PATDISP+22, PATDISP+26, PATDISP+28
, MSG~, MSG+7, HEADER~, HEADER+7
DGTYP CROSS+7~
DGVAL CROSS+7~, CROSS+16*, CROSS+19
DIC SELPAT+2~, SELPAT+3*, SELPAT+6!
DIC("?PARAM" SELPAT+4*
DIC(0 SELPAT+3*
DT RESULT+3, RESULT+19
DTOUT SELPAT+2~
DUOUT SELPAT+2~
HISFLAG PATDISP+1~, PATDISP+2*, PATDISP+30, HIST+11*
I PRNTD+1~, PRNTD+3*, PRNTD+4, RESULT+1~, RESULT+4*, RESULT+5, RESULT+6, RESULT+8, RESULT+9, RESULT+15
, RESULT+16, RESULT+18, RESULT+19, CLOCK+4*, CLOCK+5, CLOCK+6, CLOCK+7, OTHTYP+5~, OTHTYP+9*
II RESULT+1~, RESULT+6*, RESULT+8, RESULT+9, RESULT+15, RESULT+16, RESULT+18, RESULT+19
IOF PATDISP+5
J HIST+5~*, HIST+6
LAST CROSS+7~, CROSS+10*, CROSS+11, CROSS+16
OTH90 EN+1~, PATDISP+3*, PATDISP+12, PATDISP+19, PATDISP+29, HEADER+8, STATUS+6
OTHCTYP OTHTYP~, OTHTYP+9
OTHSMRY DSPLY5+1~, DSPLY5+30!
OTHSMRY( DSPLY5+3*, DSPLY5+4*, DSPLY5+5*, DSPLY5+7*, DSPLY5+8*, DSPLY5+9*, DSPLY5+11*, DSPLY5+12*, DSPLY5+13*, DSPLY5+15*
, DSPLY5+16*, DSPLY5+17*, DSPLY5+19*, DSPLY5+20*, DSPLY5+21*, DSPLY5+23, DSPLY5+24, DSPLY5+25, DSPLY5+26, DSPLY5+27
POP EN+1~, EN+2*, EN+3
SEQ DSPLY5+1~, DSPLY5+23*, DSPLY5+24*, DSPLY5+25, DSPLY5+26, DSPLY5+27
SUBTYP CROSS+7~, CROSS+13*, CROSS+14
TRUE OTHTYP+5~, OTHTYP+6*, OTHTYP+9*, OTHTYP+10
U PATDISP+11, PATDISP+12, PATDISP+16, PATDISP+19, PATDISP+21, PATDISP+29, HEADER+3, HEADER+8, RESULT+10, RESULT+11
, RESULT+12, RESULT+14, RESULT+15, RESULT+16, DSPLY5+3, DSPLY5+4, DSPLY5+5, DSPLY5+7, DSPLY5+8, DSPLY5+9
, DSPLY5+11, DSPLY5+12, DSPLY5+13, DSPLY5+15, DSPLY5+16, DSPLY5+17, DSPLY5+19, DSPLY5+20, DSPLY5+21, HIST+7
, HIST+8, HIST+9, HIST+10, STATUS+6, CROSS+8, CROSS+10, CROSS+16, CROSS+17
VADM HEADER+1~
VADM(1 HEADER+3
VADM(2 HEADER+3
VADM(3 HEADER+3
X SELPAT+2~
Y SELPAT+2~, SELPAT+8, SELPAT+11
Y(0 SELPAT+10, SELPAT+12
YY OTHTYP+5~, OTHTYP+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All