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

Package: Registration

Routine: DGOTHFSM


Information

DGOTHFSM ;SLC/RM - FORMER OTH PATIENT ELIGIBILITY CHANGE REPORT ; July 13, 2020@09:44am

Source Information

Source file <DGOTHFSM.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive Processing
  • ICR #7243
    • Status: Active
    • Usage: Private
    DATEFROM() ;prompt for FROM Date of Service
    DATETO() ;prompt for TO Date of Service
    ANSWER(DGDIRA,DGDIRB,DGDIR0,DGDIRH) ;
    ; Input
    ; DGDIR0 - DIR(0) string
    ; DGDIRA - DIR("A") string
    ; DGDIRB - DIR("B") string
    ; DGDIRH - DIR("?") string
    ; Output
    ; Function Value - Internal value returned from ^DIR or -1 if user
    ; up-arrows, double up-arrows or the read times out.
    HELP(DGSEL) ;provide extended DIR("?") help text.
    ; Input: DGSEL - prompt var for help text word selection
    ; Output: none
    HELP1 ;
    HELP2 ;
    START ; compile and print report
    LOOP(DGSORT,DGLIST,DGOTHIN) ;
    INACTOTH(DGSORT) ;Gather all registered OTH Patients with INACTIVE status within the user-specified date range
    SCPRCT(DFN,DATA) ;extract the service connected percentage
    CHKINT(DATA) ; check for integrated site divisions
    PRINT(DGSORT,DGLIST) ;output report
    PRINT1 ;print the name, pid, and DOB only once
    HEADER ;Display header for the report
    LINE ;prints double dash line
    COLHEAD ;report column header
    ASKCONT(FLAG) ; display "press <Enter> to continue" prompt
    CHKDATE(DATE,BEGDT,ENDDT) ;check if dates fall within the Begin and End dates
    PAUSE(DGQ) ; pause screen display
    ; Input:
    ; DGQ - var used to quit report processing to user CRT
    ; Output:
    ; DGQ - passed by reference - 0 = Continue, 1 = Quit
    EXIT ;
    PTFDATA ;extract data for the inpatient

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!!,$$CJ^XLFSTR(">>> No OTH records have been found. <<<",80)
    • Line Location: MAIN+4
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: MAIN+5
    Function Call: WRITE
    • Prompt: "FORMER OTH PATIENT ELIGIBILITY CHANGE REPORT"
    • Line Location: MAIN+6
    Function Call: WRITE
    • Prompt: !!,"This report identifies Former Service Members whose Primary Eligibility"
    • Line Location: MAIN+7
    Function Call: WRITE
    • Prompt: !,"changed from EXPANDED MH CARE NON-ENROLLEE to a new Primary Eligibility"
    • Line Location: MAIN+8
    Function Call: WRITE
    • Prompt: !,"with a VERIFIED eligibility status. These patients are no longer treated"
    • Line Location: MAIN+9
    Function Call: WRITE
    • Prompt: !,"under the Other Than Honorable (OTH) authority (VHA Directive 1601A.02)."
    • Line Location: MAIN+10
    Function Call: WRITE
    • Prompt: !!,"*** THIS REPORT REQUIRES 132 COLUMN margin width ***"
    • Line Location: MAIN+11
    Function Call: WRITE
    • Prompt: !!,"At the DEVICE: prompt, please accept the default value of '0;132;99999'"
    • Line Location: MAIN+12
    Function Call: WRITE
    • Prompt: !,"to avoid wrapping of data."
    • Line Location: MAIN+13
    Function Call: WRITE
    • Prompt: !!,"To include pagination, please use ';132;' for the device value."
    • Line Location: MAIN+14
    Function Call: WRITE
    • Prompt: !!,"Enter Primary Eligibility Changed Date: "
    • Line Location: MAIN+15
    Function Call: WRITE
    • Prompt: !
    • Line Location: MAIN+21
    Function Call: WRITE
    • Prompt: !," Enter the date when the former OTH patient has an Episode of Care"
    • Line Location: HELP+6
    Function Call: WRITE
    • Prompt: !," or Released Prescription."
    • Line Location: HELP+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: HELP+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: HELP+9
    Function Call: WRITE
    • Prompt: !," The Date you entered is not valid."
    • Line Location: HELP+11
    Function Call: WRITE
    • Prompt: !," The earliest date that you can enter is February 20,2020."
    • Line Location: HELP1+1
    Function Call: WRITE
    • Prompt: !," This is the date the new Primary Eligibility code"
    • Line Location: HELP1+2
    Function Call: WRITE
    • Prompt: !," EXPANDED MH CARE NON-ENROLLEE became available."
    • Line Location: HELP1+3
    Function Call: WRITE
    • Prompt: !," Date cannot be a future date."
    • Line Location: HELP2+1
    Function Call: WRITE
    • Prompt: !!!," >>> No records were found in the selected date range.",!!
    • Line Location: LOOP+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: LOOP+13
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: LOOP+14
    Function Call: WRITE
    • Prompt: !!!,$$CJ^XLFSTR(">>> The ""F"" cross reference use to run the report does not exist . <<<",80)
    • Line Location: INACTOTH+3
    Function Call: WRITE
    • Prompt: !!!," >>> No records were found using the report criteria.",!!
    • Line Location: PRINT+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRINT+6
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PRINT+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRINT+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRINT+15
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):48,1:54),$$FMTE^XLFDT($P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,3),"5Z")
    • Line Location: PRINT+17
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):60,1:69),$P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,4)
    • Line Location: PRINT+18
    Function Call: WRITE
    • Prompt: ?91,$P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,9)
    • Line Location: PRINT+19
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):107,1:103),$P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,6)
    • Line Location: PRINT+20
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):112,1:110),$$FMTE^XLFDT($P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,5),"5Z")
    • Line Location: PRINT+21
    Function Call: WRITE
    • Prompt: ?125,DGSTATN
    • Line Location: PRINT+22
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRINT+29
    Function Call: WRITE
    • Prompt: !!,"Number of Unique Patients: ",$J(DGTOTAL,5)
    • Line Location: PRINT+31
    Function Call: WRITE
    • Prompt: !!,"<< end of report >>"
    • Line Location: PRINT+32
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PRINT+33
    Function Call: WRITE
    • Prompt: $E($P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,1),1,$S($G(IBMST):27,1:30))
    • Line Location: PRINT1+1
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):29,1:33),$$FMTE^XLFDT($P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,7),"5Z")
    • Line Location: PRINT1+2
    Function Call: WRITE
    • Prompt: ?$S($G(IBMST):41,1:46),$P(@DGLIST@(DGPTNAME,DGDFN,DGSTATN),U,2)
    • Line Location: PRINT1+3
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: HEADER+2
    Function Call: WRITE
    • Prompt: !,?44,$G(ZTDESC),?120,"Page: ",?127,DGPAGE
    • Line Location: HEADER+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: HEADER+5
    Function Call: WRITE
    • Prompt: !,"OTH Eligibility Change Date Range: ",?12,$$FMTE^XLFDT(DGSORT("DGBEG"),"5Z")_" TO "_$$FMTE^XLFDT(DGSORT("DGEND"),"5Z")
    • Line Location: HEADER+6
    Function Call: WRITE
    • Prompt: ?92,"Date Printed : ",$$FMTE^XLFDT($$NOW^XLFDT,"MP")
    • Line Location: HEADER+7
    Function Call: WRITE
    • Prompt: !!,"List of Patients whose primary eligibility changed from EXPANDED MH CARE NON-ENROLLEE to a new primary eligibility code with"
    • Line Location: HEADER+8
    Function Call: WRITE
    • Prompt: !,"eligibility status of VERIFIED and episode(s)of care.",!
    • Line Location: HEADER+9
    Function Call: WRITE
    • Prompt: !,"The Current MST Screening indicates the latest MST screening result for the patient."
    • Line Location: HEADER+10
    Function Call: WRITE
    • Prompt: !,"The Station column provides data on which site(s) the patient was treated."
    • Line Location: HEADER+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: HEADER+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: HEADER+12
    Function Call: WRITE
    • Prompt: "="
    • Line Location: LINE+2
    Function Call: WRITE
    • Prompt: "PATIENT NAME",?29,"DATE OF",?41,"PID",?48,"OTH REG",?60,"NEW ELIGIBILITY CODE",?91,"CURRENT MST",?107,"SC%",?112,"ELIGIBILITY",?125,"STATION"
    • Line Location: COLHEAD+2
    Function Call: WRITE
    • Prompt: !,?29,"BIRTH",?48,"DATE",?91,"SCREEN STATUS",?112,"CHANGE DATE"
    • Line Location: COLHEAD+3
    Function Call: WRITE
    • Prompt: !,"---------------------------",?29,"----------",?41,"-----",?48,"----------",?60,"-----------------------------"
    • Line Location: COLHEAD+4
    Function Call: WRITE
    • Prompt: ?91,"--------------",?107,"---",?112,"-----------",?125,"-------"
    • Line Location: COLHEAD+5
    Function Call: WRITE
    • Prompt: "PATIENT NAME",?33,"DATE OF",?46,"PID",?54,"OTH REG DATE",?69,"NEW ELIGIBILITY CODE",?103,"SC%",?110,"ELIGIBILITY",?125,"STATION"
    • Line Location: COLHEAD+6
    Function Call: WRITE
    • Prompt: !,?33,"BIRTH",?110,"CHANGE DATE"
    • Line Location: COLHEAD+7
    Function Call: WRITE
    • Prompt: !,"------------------------------",?33,"----------",?46,"-----",?54,"------------"
    • Line Location: COLHEAD+8
    Function Call: WRITE
    • Prompt: ?69,"------------------------------",?103,"----",?110,"-----------",?125,"-------"
    • Line Location: COLHEAD+9
    Function Call: WRITE
    • Prompt: !!,$$CJ^XLFSTR("Press <Enter> to "_$S(FLAG=1:"continue.",1:"exit."),20)
    • Line Location: ASKCONT+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: EXIT+3

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GETS^DIQ
    ^DGOTH(33 - [#33] GETS^DIQ
    ^DGPT - [#45] GET1^DIQ,  GETS^DIQ
    ^DIC(45.7 - [#45.7] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call