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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call