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

Package: Registration

Routine: DGOTHFS2


Information

DGOTHFS2 ;SLC/RM - FORMER OTH PATIENT DETAIL REPORT 2 ; July 30,2020@09:44am

Source Information

Source file <DGOTHFS2.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive Processing
START ;starting point to generate report
PROMPTPT ;prompt user to enter patient
RUNOPT ;display message to run FORMER OTH PATIENT ELIGIBILITY CHANGE REPORT option
ACTIVE(DGSORT) ;determine the current status of OTH patient
SELPAT(DGSORT) ;prompt for veteran's name
RPTTYPE() ;prompt for type of data user wish to see
CURRENT(DFN,PTNAME) ;display patient current and verified PE eligibility
MTS(DFN) ;display patient's Means Test Status information
RTDDIS(DFN) ;display patient's rated disabilities information
INS(DFN) ;display patient's health insurance information
HISTORY(IEN33) ;extract all eligibility history
OTHREGDT(DGIEN33) ;determine the original date the former OTH service member become EXPANDED MH CARE NON-ENROLLEE
ENCTR(DFN,DGSORT) ;display patient's episodes of care
ENCTRCOL ;display encounter column name
ENCHDR(FLAG) ;Encounter Header
DTRANGE ;display date range
RX(DFN,DGSORT) ;extract patient's released prescription
LINE(FLAG) ;prints double dash line
PTHDR(TITLE) ;patient name and DOB header
HDR(FLAG) ;Primary Eligibility History header
PAUSE(DGQ) ; pause screen display
E(MSG) ; ----- ask user to press enter to continue
; Return: -2:Time-out; -1:'^'-out 1:anything else
HELP ;provide extended DIR("?") help text.
CHKDATE(DATE,DGSORT) ;check if dates fall within the Begin and End dates

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,$$CJ^XLFSTR(">>> No OTH records have been found. <<<",80)
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: "FORMER OTH PATIENT DETAIL REPORT",!!
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: "This option assists billing user in reviewing Former Service Member's past"
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !,"episodes of care and released prescription details to determine if"
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !,"potential back-billing is necessary."
  • Line Location: MAIN+13
Function Call: WRITE
  • Prompt: !!,"*** THIS REPORT REQUIRES 132 COLUMN OUTPUT TO PRINT CORRECTLY ***"
  • Line Location: MAIN+14
Function Call: WRITE
  • Prompt: !!,"At the DEVICE: prompt, please accept the default value of '0;132;'"
  • Line Location: MAIN+15
Function Call: WRITE
  • Prompt: !,"This is to deliberately avoid undesired wrapping problems of the data.",!!
  • Line Location: MAIN+16
Function Call: WRITE
  • Prompt: !!,"Please select sorting order for Episodes of Care and Released Prescription",!,"report section:"
  • Line Location: MAIN+51
Function Call: WRITE
  • Prompt: !!,"Please select sorting order for Episodes of Care report section:"
  • Line Location: MAIN+58
Function Call: WRITE
  • Prompt: !!,"Please select sorting order for Released Prescription report section:"
  • Line Location: MAIN+62
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAIN+68
Function Call: WRITE
  • Prompt: !
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !!,"The patient you selected is still PENDING for VBA Adjudication."
  • Line Location: PROMPTPT+7
Function Call: WRITE
  • Prompt: !!,"The primary eligibility status of the patient you selected is not VERIFIED."
  • Line Location: PROMPTPT+12
Function Call: WRITE
  • Prompt: !,"Please run FORMER OTH PATIENT ELIGIBILITY CHANGE REPORT option"
  • Line Location: RUNOPT+1
Function Call: WRITE
  • Prompt: !,"to identify Former OTH Service Member whose Primary Eligibility"
  • Line Location: RUNOPT+2
Function Call: WRITE
  • Prompt: !,"changed from EXPANDED MH CARE NON-ENROLLEE to a new Primary"
  • Line Location: RUNOPT+3
Function Call: WRITE
  • Prompt: !,"Eligibility with a VERIFIED eligibility status.",!
  • Line Location: RUNOPT+4
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT($$GET1^DIQ(2,DGDFN_",",.3612,"I"),"5Z")
  • Line Location: CURRENT+7
Function Call: WRITE
  • Prompt: !?28
  • Condition for execution: I1>1
  • Line Location: CURRENT+8
Function Call: WRITE
  • Prompt: $P(VAEL(1,I),"^",2)
  • Line Location: CURRENT+8
Function Call: WRITE
  • Prompt: "NO ADDITIONAL ELIGIBILITIES IDENTIFIED"
  • Line Location: CURRENT+9
Function Call: WRITE
  • Prompt: !,"Enrollment Priority : ",$S(DGENRIEN="":"NOT ENROLLED",((DGENRPRI="")&(DGENRGRP="")):"NONE STATED",1:DGENRPRI_DGENRGRP)
  • Line Location: CURRENT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CURRENT+13
Function Call: WRITE
  • Prompt: !,"Means Test Status : NOT IN MEANS TEST FILE"
  • Line Location: MTS+2
Function Call: WRITE
  • Prompt: !!,"Rated Disabilities: "
  • Line Location: RTDDIS+4
Function Call: WRITE
  • Prompt: "NOT A VETERAN"
  • Line Location: RTDDIS+4
Function Call: WRITE
  • Prompt: "NONE STATED"
  • Line Location: RTDDIS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RTDDIS+15
Function Call: WRITE
  • Prompt: $G(DGP1)_" - ",$E(DGP2,1,30)," ",DGP3
  • Line Location: RTDDIS+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: INS+3
Function Call: WRITE
  • Prompt: !!,"Health Insurance : "
  • Line Location: INS+4
Function Call: WRITE
  • Prompt: $S(Z:"YES",1:"NO")
  • Line Location: INS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HISTORY+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HISTORY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HISTORY+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: HISTORY+11
Function Call: WRITE
  • Prompt: $S($P(DGLINE,U)="":"UNKNOWN",+DGOTHTYP:"EXPANDED MH CARE NON-ENROLLEE"_" ("_$P(DGLINE,U)_")",1:$P(DGLINE,U))
  • Line Location: HISTORY+14
Function Call: WRITE
  • Prompt: " (N/A)"
  • Line Location: HISTORY+15
Function Call: WRITE
  • Prompt: ?60,$$FMTE^XLFDT($P(DGLINE,U,2),"5Z")
  • Line Location: HISTORY+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HISTORY+17
Function Call: WRITE
  • Prompt: !!,"<< end of report >>"
  • Line Location: HISTORY+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HISTORY+19
Function Call: WRITE
  • Prompt: !!,">> NO DATA FOUND FROM "_$$FMTE^XLFDT(DGSORT("DGBEG"),"5ZF")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5ZF")_"."
  • Line Location: ENCTR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ENCTR+8
Function Call: WRITE
  • Prompt: !!,"Total Number of Encounter: ",DGTOTENC
  • Line Location: ENCTR+10
Function Call: WRITE
  • Prompt: !,"Location of",?22,"Clinic Stop/",?45,"Primary",?55,"Div.",?61,"Date of",?72,"Last Updated",?89,"Bill #",?100,"Action Type/",?116,"IB Status"
  • Line Location: ENCTRCOL+1
Function Call: WRITE
  • Prompt: !,"Care",?22,"Treating Specialty",?45,"DX",?61,"Service",?77,"By",?100,"Rate Type",!
  • Line Location: ENCTRCOL+2
Function Call: WRITE
  • Prompt: !,?132-$L(TITLE)\2,TITLE,!
  • Line Location: ENCHDR+3
Function Call: WRITE
  • Prompt: ?132-$L(TITLE)\2,TITLE,!
  • Line Location: ENCHDR+6
Function Call: WRITE
  • Prompt: ?132-$L(DTRANGE)\2,DTRANGE,!
  • Line Location: DTRANGE+3
Function Call: WRITE
  • Prompt: !!,"<< end of report >>"
  • Line Location: RX+29
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RX+31
Function Call: WRITE
  • Prompt: "="
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PTHDR+2
Function Call: WRITE
  • Prompt: ?132-$L(TITLE)\2,TITLE
  • Line Location: PTHDR+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PTHDR+3
Function Call: WRITE
  • Prompt: "Patient Name: ",DGPTNM_" ("_DGPID_")",?112,"DOB: ",$P(VADM(3),U,2),!
  • Line Location: PTHDR+5
Function Call: WRITE
  • Prompt: ?132-$L(TITLE)\2,TITLE,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "Primary Eligibility",?60,"Date of Change",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !,"Select ""E""ligibility if you wish to see the Primary Eligibility history"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !," Means Test, and Health Insurance information of the selected"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !," patient.",!
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,"Select ""A""ll if you wish to see the Primary Eligibility history,"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," Means Test, Health Insurance information, Patient's"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !," Episodes of Care, and patient's Released Prescriptions"
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !," of the selected patient.",!
  • Line Location: HELP+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGEN(27.11 - [#27.11] GET1^DIQ
^DGOTH(33 - [#33] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ,  RECALL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call