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
Print Page as PDF
Routine: DGPPRRP1

Package: Registration

Routine: DGPPRRP1


Information

DGPPRRP1 ;SLC/RM - PRESUMPTIVE PSYCHOSIS RECONCILIATION REPORT CONTINUATION ; Dec 02, 2020@3:00 pm

Source Information

Source file <DGPPRRP1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINTPP(DGSORT,DGPPLST) ;output report
PRINT1
PRNTOED
HEADER
LINE
COLHEAD
ASKCONT(FLAG) ; display "press <Enter> to continue" prompt
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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!," >>> No records were found using the report criteria.",!!
  • Line Location: PRINTPP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTPP+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTPP+17
Function Call: WRITE
  • Prompt: !!,"Number of Unique Patients: ",$J(DGTOTAL,5)
  • Line Location: PRINTPP+20
Function Call: WRITE
  • Prompt: !!,"<< end of report >>"
  • Line Location: PRINTPP+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINTPP+22
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: $E(DGPTNAME,1,24)
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: ?26,$P(@DGPPLST@(DGPTNAME,DGDFN),U,2)
  • Line Location: PRINT1+5
Function Call: WRITE
  • Prompt: ?33,$$FMTE^XLFDT($P(@DGPPLST@(DGPTNAME,DGDFN),U,3),"5Z")
  • Line Location: PRINT1+6
Function Call: WRITE
  • Prompt: ?45,$S(+DGDOD>0:$$FMTE^XLFDT(DGDOD\1,"5Z"),1:"N/A")
  • Line Location: PRINT1+7
Function Call: WRITE
  • Prompt: ?57,$P(@DGPPLST@(DGPTNAME,DGDFN),U,5)
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: ?63,$E($P(@DGPPLST@(DGPTNAME,DGDFN),U,6),1,29)
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTOED+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTOED+8
Function Call: WRITE
  • Prompt: ?94,$E($P(@DGPPLST@(DGPTNAME,DGDFN,DGDOS,RCNT,"OTHER",FILENO,DGSTATN),U,2),1,26)
  • Line Location: PRNTOED+9
Function Call: WRITE
  • Prompt: ?121,$E(DATEDOS,"*",1)
  • Line Location: PRNTOED+11
Function Call: WRITE
  • Prompt: ?122,$S(+DATEDOS>0:$$FMTE^XLFDT(DATEDOS\1,"5Z"),1:"")
  • Line Location: PRNTOED+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?(132-$L(ZTDESC))\2,$G(ZTDESC),?120,"Page: ",?127,DGPAGE
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,?47,"DATE RANGE: ",$$FMTE^XLFDT(DGSORT("DGBEG"),"5Z")," TO ",$$FMTE^XLFDT(DGSORT("DGEND"),"5Z")
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,?45,"DATE PRINTED: ",$$FMTE^XLFDT($$NOW^XLFDT,"MP")
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,?48,"FACILITY : "_$P(HERE,U,2)
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,?47,"'*' = Patient Admission Date"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: "="
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: "PATIENT NAME",?26,"PID",?33,"DATE OF",?45,"DATE OF",?57,"PP",?63,"PRIMARY",?94,"OTHER",?122,"DATE OF"
  • Line Location: COLHEAD+1
Function Call: WRITE
  • Prompt: !,?33,"BIRTH",?45,"DEATH",?57,"CAT",?63,"ELIGIBILITY",?94,"ELIGIBILITIES",?122,"SERVICE"
  • Line Location: COLHEAD+2
Function Call: WRITE
  • Prompt: !,"------------------------",?26,"-----",?33,"----------",?45,"----------",?57,"----"
  • Line Location: COLHEAD+3
Function Call: WRITE
  • Prompt: ?63,"-----------------------------",?94,"-------------------------",?122,"----------"
  • Line Location: COLHEAD+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Press <Enter> to "_$S(FLAG=1:"continue.",1:"exit."),20)
  • Line Location: ASKCONT+2
Info |  Source |  Entry Points |  Interaction Calls