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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AZXRVP3

Package: Phoenix Devel Center

Routine: AZXRVP3


Information

AZXRVP3 ;PAO/IHS/JHL;VISITS BY PROVIDERS[ 08/31/93 11:22 AM ]

Source Information

Source file <AZXRVP3.m>

Entry Points

Name Comments DBIA/ICR reference
DOPRINT ;DO PRINT LOOP
PRNTDATA ;PRINT DATA FOR EACH ENTRY
HEADING4 ;ERROR REPORT HEADING
HEADING2 ;REPORT CRITERIA HEADING
HEADING3 ;REPORT LABEL HEADING
HEADING1 ;MAIN REPORT HEADING
KILL ;KILL LOCAL VARIABLES AND EXIT ROUTINE AZXRVP3
ERRPRINT ;PRINT OUT ALL ERRORS
MAIN ;AZXRVP3 PROGRAM CONTROL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No data found for given criteria."
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: #
  • Line Location: HEADING1+1
Function Call: WRITE
  • Prompt: "_______________________________________________________________________________________________",!!
  • Line Location: HEADING1+3
Function Call: WRITE
  • Prompt: "Visits by Providers",?31,"-CONFIDENTIAL-",?59,"From: ",^AZXRTMP1(0,"FDT",1),?79,"To: ",^AZXRTMP1(0,"TDT",1),!
  • Line Location: HEADING1+4
Function Call: WRITE
  • Prompt: "for ",?4,^AZXRTMP1(0,"FAC",1),?79,"Pg: ",PG,!
  • Line Location: HEADING1+5
Function Call: WRITE
  • Prompt: "_______________________________________________________________________________________________",!!
  • Line Location: HEADING1+6
Function Call: WRITE
  • Prompt: ?30,"-SEARCH CRITERIA-",!
  • Line Location: HEADING2+1
Function Call: WRITE
  • Prompt: "Primary Providers:",?59,"Affiliations:",!!
  • Line Location: HEADING2+2
Function Call: WRITE
  • Prompt: ?5,^AZXRTMP1(0,"PROV",J)
  • Condition for execution: $D(^AZXRTMP1(0,"PROV",J))
  • Line Location: HEADING2+3
Function Call: WRITE
  • Prompt: ?65,^AZXRTMP1(0,"AFF",J)
  • Condition for execution: $D(^AZXRTMP1(0,"AFF",J))
  • Line Location: HEADING2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING2+3
Function Call: WRITE
  • Prompt: !,"Clinic Stops:",?59,"Coverage Types:",!!
  • Line Location: HEADING2+4
Function Call: WRITE
  • Prompt: ?5,^AZXRTMP1(0,"CLNC",J)
  • Condition for execution: $D(^AZXRTMP1(0,"CLNC",J))
  • Line Location: HEADING2+5
Function Call: WRITE
  • Prompt: ?65,^AZXRTMP1(0,"COV",J)
  • Condition for execution: $D(^AZXRTMP1(0,"COV",J))
  • Line Location: HEADING2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADING2+5
Function Call: WRITE
  • Prompt: "_______________________________________________________________________________________________",!!
  • Line Location: HEADING2+6
Function Call: WRITE
  • Prompt: "Patient Name",?31,"HRN",?50,"Date",?65,"Clinic Stop",!
  • Line Location: HEADING3+1
Function Call: WRITE
  • Prompt: "Primary Provider",?65,"Affiliation",!
  • Line Location: HEADING3+2
Function Call: WRITE
  • Prompt: "Coverage Types",!
  • Line Location: HEADING3+3
Function Call: WRITE
  • Prompt: "_______________________________________________________________________________________________",!!
  • Line Location: HEADING3+4
Function Call: WRITE
  • Prompt: #
  • Line Location: HEADING4+1
Function Call: WRITE
  • Prompt: "_______________________________________________________________________________________________",!!
  • Line Location: HEADING4+3
Function Call: WRITE
  • Prompt: "Visits by Providers",?31,"-ERROR REPORT-",?59,"From: ",^AZXRTMP1(0,"FDT",1),?79,"To: ",^AZXRTMP1(0,"TDT",1),!
  • Line Location: HEADING4+4
Function Call: WRITE
  • Prompt: "for ",?4,^AZXRTMP1(0,"FAC",1),?79,"Pg: ",PG,!
  • Line Location: HEADING4+5
Function Call: WRITE
  • Prompt: "_______________________________________________________________________________________________",!!
  • Line Location: HEADING4+6
Function Call: WRITE
  • Prompt: AZXRNAME,?31,$P(^AZXRTMP1(AZXRNAME,AZXRDATE,AZXRENT),U,1)
  • Line Location: PRNTDATA+2
Function Call: WRITE
  • Prompt: ?50,AZXRDATE,?65,$P(^AZXRTMP1(AZXRNAME,AZXRDATE,AZXRENT),U,2),!
  • Line Location: PRNTDATA+4
Function Call: WRITE
  • Prompt: $P(^AZXRTMP1(AZXRNAME,AZXRDATE,AZXRENT),U,3)
  • Line Location: PRNTDATA+6
Function Call: WRITE
  • Prompt: ?65,$P(^AZXRTMP1(AZXRNAME,AZXRDATE,AZXRENT),U,4),!
  • Line Location: PRNTDATA+8
Function Call: WRITE
  • Prompt: AZXRCOVS,!
  • Line Location: PRNTDATA+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNTDATA+12
Function Call: WRITE
  • Prompt: ?K,^AZXRTMP1(1,"ERROR1",J)
  • Line Location: ERRPRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ERRPRINT+7
Function Call: WRITE
  • Prompt: ?K,$P(^DPT(^AZXRTMP1(2,"ERROR2",J),0),U,1)
  • Line Location: ERRPRINT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ERRPRINT+13
Function Call: WRITE
  • Prompt: ?K,$P(^DPT(^AZXRTMP1(3,"ERROR3",J),0),U,1)
  • Line Location: ERRPRINT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: ERRPRINT+19
Function Call: WRITE
  • Prompt: ?K,$P(^AZXRTMP1(4,"ERROR4",J),U,1)
  • Line Location: ERRPRINT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: ERRPRINT+26

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AZXRTMP1( DOPRINT+2, PRNTDATA+2, PRNTDATA+4, PRNTDATA+6, PRNTDATA+8, PRNTDATA+11
^AZXRTMP1("AAAAAA" MAIN+3
^AZXRTMP1(0 MAIN+3!, MAIN+8!, HEADING1+4, HEADING1+5, HEADING2+3, HEADING2+5, HEADING4+4, HEADING4+5, ERRPRINT+10
^AZXRTMP1(1 MAIN+6, ERRPRINT+2, ERRPRINT+7
^AZXRTMP1(2 MAIN+6, ERRPRINT+9, ERRPRINT+13
^AZXRTMP1(3 MAIN+6, ERRPRINT+15, ERRPRINT+19
^AZXRTMP1(4 MAIN+6, ERRPRINT+21, ERRPRINT+26
^DPT - [#2] ERRPRINT+13, ERRPRINT+19

Label References

Name Line Occurrences
DOPRINT MAIN+5
ERRPRINT MAIN+6
HEADING1 MAIN+2, PRNTDATA+1
HEADING2 MAIN+2
HEADING3 MAIN+2
HEADING4 ERRPRINT+1, ERRPRINT+7, ERRPRINT+13, ERRPRINT+19, ERRPRINT+26
KILL MAIN+3, MAIN+9
PRNTDATA DOPRINT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AZXRCOVS PRNTDATA+11*, KILL+1!
AZXRDATE DOPRINT+2*, PRNTDATA+2, PRNTDATA+4, PRNTDATA+6, PRNTDATA+8, PRNTDATA+11, KILL+1!
AZXRENT DOPRINT+2*, PRNTDATA+2, PRNTDATA+4, PRNTDATA+6, PRNTDATA+8, PRNTDATA+11, KILL+1!
AZXRNAME DOPRINT+1*, DOPRINT+2*, PRNTDATA+2, PRNTDATA+4, PRNTDATA+6, PRNTDATA+8, PRNTDATA+11, KILL+1!
IOSL PRNTDATA+1, ERRPRINT+7, ERRPRINT+13, ERRPRINT+19, ERRPRINT+26
J HEADING2+3*, HEADING2+5*, PRNTDATA+11*, ERRPRINT+6*, ERRPRINT+7*, ERRPRINT+12*, ERRPRINT+13*, ERRPRINT+18*, ERRPRINT+19*, ERRPRINT+25*
, ERRPRINT+26*, KILL+1!
K ERRPRINT+6*, ERRPRINT+7*, ERRPRINT+12*, ERRPRINT+13*, ERRPRINT+18*, ERRPRINT+19*, ERRPRINT+25*, ERRPRINT+26*, KILL+1!
LN HEADING1+7*, HEADING2+7*, HEADING3+5*, HEADING4+7*, PRNTDATA+1, PRNTDATA+10*, PRNTDATA+11*, PRNTDATA+12*, ERRPRINT+5*, ERRPRINT+7*
, ERRPRINT+8*, ERRPRINT+11*, ERRPRINT+13*, ERRPRINT+14*, ERRPRINT+17*, ERRPRINT+19*, ERRPRINT+20*, ERRPRINT+24*, ERRPRINT+26*, KILL+1!
PG MAIN+1*, HEADING1+2*, HEADING1+5, HEADING4+2*, HEADING4+5, KILL+1!
U PRNTDATA+2, PRNTDATA+4, PRNTDATA+6, PRNTDATA+8, PRNTDATA+11, ERRPRINT+13, ERRPRINT+19, ERRPRINT+26
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All