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

Package: Income Verification Match

Routine: IVMADDRP


Information

IVMADDRP ;ALB/PHH,EG,ERC,BAJ,CKN - IVM ADDRESS UPLOAD LOG REPORT ; 7/11/06 4:36pm

Source Information

Source file <IVMADDRP.m>

Entry Points

Name Comments DBIA/ICR reference
DOS() ;detail or summary
GETPAT() ;get a patient
ENDDATE() ;get an end date, default to TODAY
SORTORD() ;get sort order for summary
START ; Generate Report
BUILD(SDATE,EDATE,DOS,DFN,SO) ; Build the Report
ADDIEN ;
C
GETINF ;
REPORT ; Display the Report
DETAIL
SUMMARY
SORT2
SUMPR
TOTAL(CNT) ;
CSZ(CITY,STATE,ZIP) ;format city, state and zip into one line
PCP(PCODE,CITY,PROV) ;format postal code, city, province for foreign address
FSSN(SSN) ; Format the SSN
HEADER ; Print the header
PAUSE(RESP) ; Prompt user for next page or quit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report Cancelled!"
  • Line Location: IVMADDRP+30
Function Call: WRITE
  • Prompt: !!,"Report "_$S($D(ZTSK):"Queued!",1:"Cancelled!")
  • Line Location: IVMADDRP+37
Function Call: WRITE
  • Prompt: !
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !?80-$L(X)\2,X,!
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: !,$$FSSN(SSN),?12,$E(NAME,1,20)
  • Line Location: DETAIL+23
Function Call: WRITE
  • Prompt: ?35,$$FMTE^XLFDT($P(CHDTTM,".",1))
  • Line Location: DETAIL+24
Function Call: WRITE
  • Prompt: ?49,$E(ADDR1,1,30),!
  • Line Location: DETAIL+27
Function Call: WRITE
  • Prompt: ?49,$E(ADDR2,1,30),!
  • Line Location: DETAIL+28
Function Call: WRITE
  • Prompt: ?49,$E(ADDR3,1,30),!
  • Line Location: DETAIL+29
Function Call: WRITE
  • Prompt: ?49,$E(CSZ,1,30),!
  • Line Location: DETAIL+30
Function Call: WRITE
  • Prompt: ?49,$E(DGCNTRY,1,30),!
  • Line Location: DETAIL+31
Function Call: WRITE
  • Prompt: ?49,"SOURCE: ",SOURCE,!
  • Line Location: DETAIL+32
Function Call: WRITE
  • Prompt: ?49,"SITE: ",SITE
  • Line Location: DETAIL+33
Function Call: WRITE
  • Prompt: !?49,"BAI: ",BAI
  • Line Location: DETAIL+34
Function Call: WRITE
  • Prompt: !,$$FSSN(SSN),?12,$E(NAME,1,20)
  • Line Location: SUMPR+5
Function Call: WRITE
  • Prompt: ?35,$$FMTE^XLFDT($O(^XTMP("IVMADDRP",$J,SORT1,SORT2,"DATE",""),-1))
  • Line Location: SUMPR+6
Function Call: WRITE
  • Prompt: ?73,$J($FN(X,","),5)
  • Line Location: SUMPR+8
Function Call: WRITE
  • Prompt: !!,"Total records found meeting criteria: ",CNT,!
  • Line Location: TOTAL+2
Function Call: WRITE
  • Prompt: #
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: "IVM ADDRESS CHANGE LOG REPORT",?71,PGHDR
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(SDATE)_" THRU "_$$FMTE^XLFDT(EDATE)
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!,"SSN",?12,"NAME",?35,"CHANGE DATE",?49,"PRIOR ADDRESS"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,"---",?12,"----",?35,"-----------",?49,"--------------"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !!,"SSN",?12,"NAME",?35,"LAST UPDATED",?69,"# ENTRIES"
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: !,"---",?12,"----",?35,"------------",?69,"---------"
  • Line Location: HEADER+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call