Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$CJ^XLFSTR  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPPRRPT  

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

External References

Name Field # of Occurrence
$$S^%ZTLOAD HEADER+2
^DIR PAUSE+5
$$FMTE^XLFDT PRINT1+6, PRINT1+7, PRNTOED+12, HEADER+6, HEADER+7
$$NOW^XLFDT HEADER+7
$$CJ^XLFSTR ASKCONT+2

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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+5

Label References

Name Line Occurrences
ASKCONT PRINTPP+7, PRINTPP+22
COLHEAD PRINTPP+4, PRINTPP+8, PRNTOED+7
HEADER PRINTPP+4, PRINTPP+8, PRNTOED+7
LINE PRINTPP+6, PRINTPP+19, HEADER+10
PAUSE PRNTOED+7
PRINT1 PRINTPP+12, PRNTOED+7
PRNTOED PRINTPP+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNTR PRNTOED+1~, PRNTOED+2*, PRNTOED+7*, PRNTOED+8, PRNTOED+13*
DATEDOS PRNTOED+1~, PRNTOED+10*, PRNTOED+11*, PRNTOED+12
DDASH PRINTPP+1~, PRINTPP+2*
DGDFN PRINTPP+1~, PRINTPP+11*, PRINTPP+13, PRINT1+3, PRINT1+5, PRINT1+6, PRINT1+8, PRINT1+9, PRNTOED+3, PRNTOED+4
, PRNTOED+5, PRNTOED+6, PRNTOED+9, PRNTOED+10
DGDOD PRINT1+1~, PRINT1+3*, PRINT1+7
DGDOS PRNTOED+1~, PRNTOED+3*, PRNTOED+4, PRNTOED+5, PRNTOED+6, PRNTOED+9, PRNTOED+10
DGDTRNGE HEADER+1~
DGFACLTY HEADER+1~
DGOLD PRINTPP+1~, PRINTPP+2*, PRINTPP+10, PRINTPP+15*
DGOTHER PRINT1+1~
DGPAGE PRINTPP+1~, PRINTPP+2*, HEADER+3, HEADER+4*, HEADER+5, PAUSE+5
DGPPLST PRINTPP~, PRINTPP+3, PRINTPP+9, PRINTPP+11, PRINTPP+13, PRINT1+3, PRINT1+5, PRINT1+6, PRINT1+8, PRINT1+9
, PRNTOED+3, PRNTOED+4, PRNTOED+5, PRNTOED+6, PRNTOED+9, PRNTOED+10
DGPRINT PRINTPP+1~, PRINTPP+2*, PRINTPP+10*, PRINTPP+12*
DGPRINT2 PRNTOED+1~
DGPTNAME PRINTPP+1~, PRINTPP+9*, PRINTPP+10, PRINTPP+11, PRINTPP+13, PRINTPP+15, PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+6
, PRINT1+8, PRINT1+9, PRNTOED+3, PRNTOED+4, PRNTOED+5, PRNTOED+6, PRNTOED+9, PRNTOED+10
DGQ PRINTPP+1~, PRINTPP+2*, PRINTPP+9, PRINTPP+11, PRINTPP+16, PRINTPP+18, PRNTOED+3, PRNTOED+4, PRNTOED+5, PRNTOED+6
, PRNTOED+7, HEADER+2*, PAUSE~, PAUSE+5*
DGSORT PRINTPP~
DGSORT("DGBEG" HEADER+6
DGSORT("DGEND" HEADER+6
DGSTATN PRINTPP+1~, PRNTOED+1~, PRNTOED+6*, PRNTOED+9, PRNTOED+10
DGTOTAL PRINTPP+1~, PRINTPP+2*, PRINTPP+14*, PRINTPP+20
DIR PAUSE+5!
DIR(0 PAUSE+5*
DTIME ASKCONT+3
DTPRNTD HEADER+1~
FILENO PRNTOED+1~, PRNTOED+5*, PRNTOED+6, PRNTOED+9, PRNTOED+10
FLAG ASKCONT~, ASKCONT+2
>> HERE HEADER+8
IOF PRINTPP+22, HEADER+3
IOSL PRNTOED+7
JJ PRINT1+1~
LINE LINE+1~, LINE+2*
RCNT PRNTOED+1~, PRNTOED+4*, PRNTOED+5, PRNTOED+6, PRNTOED+9, PRNTOED+10
>> TRM HEADER+3, PAUSE+5
U PRINT1+3, PRINT1+5, PRINT1+6, PRINT1+8, PRINT1+9, PRNTOED+9, PRNTOED+10, HEADER+8
>> Y PAUSE+5
Z ASKCONT+1~, ASKCONT+3*
>> ZTDESC HEADER+5
>> ZTQUEUED HEADER+2
>> ZTSTOP HEADER+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All