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

Package: Toolkit

Routine: AWCMCPR1


Information

AWCMCPR1 ;VISN 7/THM-CPRS MONITOR ;Feb 27, 2004

Source Information

Source file <AWCMCPR1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZISC  OPEN^%ZISH  ($$OS,OS)^%ZOSV  ($$HDIFF,$$HTFM)^XLFDT  
Toolkit 2 (PART1,PART2)^AWCMCPR2  (EN,PURDEL)^AWCMFTP  
VA Fileman 2 (NOW,YMD)^%DTC  DT^DICRW  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Order Entry Results Reporting 1 ORWCV  
Text Integration Utility 1 TIUSRVLO  

Entry Points

Name Comments DBIA/ICR reference
ENDQ
SORT ; sort the data into a TMP file
SETTMP
END ; record the data
; quit if turning on/back on in middle of transaction (AWCTYPE or AWCSTRT missing)
  • ICR #4325
    • Status: Active
    • Usage: Private
    TMPALL
    PPAGE ; entry point to create updated .htm file
    ; possible values for AWCX are VMS, VMSC, or NT
    PART2
    DIVPG
    EXIT
    STRT1 ; tiu
  • ICR #4325
    • Status: Active
    • Usage: Private
    STRT2 ; lab
  • ICR #4325
    • Status: Active
    • Usage: Private
    STRT3 ; reminders
  • ICR #4325
    • Status: Active
    • Usage: Private
    NODATA ; handle no data for the day-create a zero, dummy record for the home facility.
    ; this only occurs when a page is due to be run but no activity yet.
    DIVS ; count the divisions for drop-down box on web page (used in AWCMCPR2)
    DVALS

    External References

    Name Field # of Occurrence
    NOW^%DTC PPAGE+27
    YMD^%DTC PPAGE+30
    ^%ZISC EXIT
    OPEN^%ZISH DIVPG+9
    $$OS^%ZOSV PPAGE+8, PPAGE+9
    OS^%ZOSV PPAGE+7
    PART1^AWCMCPR2 DIVPG+11
    PART2^AWCMCPR2 PART2
    EN^AWCMFTP PART2+2
    PURDEL^AWCMFTP PART2+4
    DT^DICRW PPAGE+11
    $$SITE^VASITE SORT+5
    $$HDIFF^XLFDT DVALS+8
    $$HTFM^XLFDT END+14, NODATA+9

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,$C(7),"You cannot run this program directly.",!,"Application use only !!",!!
    • Line Location: AWCMCPR1+3

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("OS" PPAGE+2
    ^AWC(177100.12 - [#177100.12] STRT1+1, STRT2+1, STRT3+1, END+3, PPAGE+12, PPAGE+14, PPAGE+15, DIVPG+1, DIVPG+4, NODATA+3
    ^DD("DD" DVALS+9
    ^DIC(4 - [#4] DIVS+4, DIVPG+2, DIVPG+3, NODATA+3, NODATA+4
    ^TMP("AWCTTIM" PPAGE+34!, PPAGE+37*, PPAGE+38*, PPAGE+39*, TMPALL+1, EXIT+7!
    ^TMP($J SORT+1!, SORT+6*, DIVS+1, DIVS+3, DIVPG, DVALS+4, DVALS+5, DVALS+6, EXIT+7!
    ^XTMP("AWCCPRS" END+9, END+10, END+12*, END+13, END+15*, SORT+2, SORT+3, SORT+4, DVALS+7, NODATA+6
    , NODATA+7*, NODATA+8, NODATA+10*

    Label References

    Name Line Occurrences
    ENDQ STRT1+2, STRT1+3, STRT2+2, STRT2+3, STRT3+2, STRT3+3, END+2, END+4, END+5, END+6
    , END+7, END+9
    EXIT DIVPG
    NODATA DIVS+1
    PPAGE DIVS+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % PPAGE+27, PPAGE+30, PPAGE+31, EXIT+1!
    %H PPAGE+28, PPAGE+30*, EXIT+1!
    %I EXIT+6!
    %SUBMIT EXIT+6!
    %ZISHF EXIT+6!
    %ZISHO EXIT+6!
    %ZISUB EXIT+6!
    AWC EXIT+6!
    AWCAVG EXIT+1!
    AWCBEGDT PPAGE+30*, SORT+2, DVALS+5, EXIT+3!
    AWCBEGTM PPAGE+32*, PPAGE+37, PPAGE+38, PPAGE+39, EXIT+2!
    AWCBKGRN PPAGE+22*, EXIT+4!
    AWCC EXIT+1!
    AWCCNT EXIT+1!
    AWCCURTM PPAGE+27*, PPAGE+33, EXIT+3!
    AWCDA END+10*, END+11*, END+12*, END+15, ENDQ!, NODATA+7*, NODATA+10
    AWCDATE DVALS+5*, DVALS+6, DVALS+7, DVALS+9, EXIT+1!
    AWCDCNTR DIVS+2*, DIVS+5*, DIVS+7, EXIT+4!
    AWCDEV DIVPG+1*, DIVPG+5, DIVPG+8*, DIVPG+9, DIVPG+10, EXIT+1!
    AWCDHRS PPAGE+16*, PPAGE+27, EXIT+1!
    AWCDIR EXIT+6!
    AWCDIRL EXIT+6!
    AWCDIV SORT+4*, SORT+5*, SORT+6, DIVS+3*, DIVS+4, DIVPG*, DIVPG+2, DIVPG+3, DIVPG+5, DVALS+4
    , DVALS+5, DVALS+6, EXIT+1!
    AWCDIVN1 DIVPG+2*, EXIT+4!
    AWCDIVNM DIVPG+2*, DIVPG+3*, DIVPG+4, EXIT+3!
    AWCDT EXIT+1!
    AWCDTA STRT1+1~*, STRT1+2, STRT1+3, STRT2+1~*, STRT2+2, STRT2+3, STRT3+1~*, STRT3+2, STRT3+3, STRT3+5!
    , END+3*, END+4, END+5, END+6, END+7, ENDQ!, PPAGE+14*, PPAGE+16, PPAGE+17, PPAGE+18
    , PPAGE+19, PPAGE+20, PPAGE+21, PPAGE+22, PPAGE+27!, SORT+4*, DVALS+7*, EXIT+1!
    AWCDTA1 PPAGE+15*, PPAGE+23, PPAGE+24, PPAGE+25, EXIT+5!
    AWCDVDTA EXIT+3!
    AWCDVNB EXIT+4!
    AWCDVNM EXIT+4!
    AWCEND END+8*, END+15, ENDQ!, EXIT+1!, NODATA+2*, NODATA+10
    AWCENDDT PPAGE+27*, SORT+2, DVALS+5, EXIT+2!
    AWCENDTM PPAGE+34*, PPAGE+37, PPAGE+38, PPAGE+39, EXIT+2!
    AWCFDIV DIVS+7!, EXIT+4!
    AWCFDIV( DIVS+4*
    AWCFDIVN EXIT+2!
    AWCFILE DIVPG+4*, DIVPG+5, DIVPG+9, DIVPG+10, EXIT+1!
    AWCFMDT END+14*, END+15, ENDQ!, EXIT+1!, NODATA+9*, NODATA+10
    AWCFXDTA EXIT+4!
    AWCGRDON PPAGE+21*, EXIT+4!
    AWCHFIL1 DIVPG+10*, EXIT+5!
    AWCHFILE EXIT+6!
    AWCHFILL EXIT+6!
    AWCI1 PPAGE+28*, PPAGE+29*, PPAGE+30, EXIT+3!
    AWCI2 PPAGE+28*, PPAGE+29*, PPAGE+30, EXIT+3!
    AWCLABLN PPAGE+19*, EXIT+4!
    AWCLBCNT EXIT+2!
    AWCMCP EXIT+5!
    AWCMPW PPAGE+25*, EXIT+5!
    AWCMSRV PPAGE+23*, EXIT+5!
    AWCMUSR PPAGE+24*, EXIT+5!
    AWCMXSEC PPAGE+17*, EXIT+4!
    AWCOS PPAGE+2*, PPAGE+3, PPAGE+4, PPAGE+5, EXIT+5!, EXIT+6!
    AWCPARAM EXIT+2!
    AWCPCNTR EXIT+2!
    AWCREMLN PPAGE+20*, EXIT+4!
    AWCSEC ENDQ!, DVALS+8*, SETTMP+2, SETTMP+5, EXIT+1!
    AWCSITE EXIT+5!
    AWCSITEN EXIT+5!
    AWCSRTDT SORT+2*, SORT+3, SORT+4, SORT+6, EXIT+5!
    AWCSTRT STRT1+4*, STRT2+4*, STRT3+4*, END+2, END+14, END+15, ENDQ!, EXIT+2!, NODATA+2*, NODATA+9
    , NODATA+10
    AWCTIME DVALS+22*, SETTMP+1, SETTMP+2, SETTMP+3, SETTMP+4, SETTMP+5, SETTMP+6, EXIT+2!
    AWCTIULN PPAGE+18*, EXIT+4!
    AWCTSEC PPAGE+27*, PPAGE+29, EXIT+3!
    AWCTTIM EXIT+3!
    AWCTYPE STRT1+4*, STRT2+4*, STRT3+4*, END+2, END+15, ENDQ!, SORT+4*, SORT+6, DVALS+4*, DVALS+5
    , DVALS+6, SETTMP+1, SETTMP+2, SETTMP+3, SETTMP+4, SETTMP+5, SETTMP+6, EXIT+2!, NODATA+5*, NODATA+10
    AWCVAR EXIT+6!
    AWCVCNTR DVALS+1*, DVALS+2*, EXIT+3!
    AWCVMSP EXIT+5!
    AWCWBFLD EXIT+6!
    AWCWEBRT EXIT+4!
    AWCWL EXIT+3!
    AWCX PPAGE+2*, PPAGE+3*, PPAGE+4*, PPAGE+5*, PPAGE+8*, PPAGE+9*, DIVPG+7, PART2+3, PART2+4, EXIT+1!
    AWCX1 DVALS+12*, DVALS+20*, DVALS+21*, DVALS+22, EXIT+3!
    AWCX3 DVALS+12*, DVALS+13*, DVALS+14*, DVALS+15*, DVALS+16*, DVALS+17*, DVALS+18*, DVALS+19*, DVALS+20*, DVALS+22
    , EXIT+3!
    AWCXDA EXIT+6!, NODATA+3*, NODATA+4
    AWCXDIV EXIT+5!, NODATA+3*, NODATA+4*, NODATA+5
    AWCXEND DVALS+7*, DVALS+8, EXIT+7!
    AWCXSTRT DVALS+7*, DVALS+8, EXIT+7!
    AWCY EXIT+1!
    AWCZ DIVPG+8*, EXIT+2!
    CMD PART2+3*, EXIT+6!
    DA SORT+3*, SORT+4, SORT+6, DVALS+6*, DVALS+7, EXIT+2!
    DD ENDQ!, EXIT+2!
    DIC ENDQ!, EXIT+2!
    DIE ENDQ!, EXIT+2!
    DO ENDQ!, EXIT+2!
    DR EXIT+2!
    DUZ END+15
    DUZ(2 END+15
    IO DIVPG+11
    POP DIVPG, DIVPG+1*, DIVPG+9, EXIT+3!
    T TMPALL+1*, EXIT+3!
    TMP EXIT+7!
    TMP("AWC" PPAGE+11!, TMPALL+1*, DVALS+1, SETTMP+1, SETTMP+2*, SETTMP+3*, SETTMP+4, SETTMP+5*, SETTMP+6*, EXIT+7!
    U STRT1+2, STRT1+3, STRT2+2, STRT2+3, STRT3+2, STRT3+3, END+4, END+5, END+6, END+7
    , END+15, PPAGE+2, PPAGE+16, PPAGE+17, PPAGE+18, PPAGE+19, PPAGE+20, PPAGE+21, PPAGE+22, PPAGE+23
    , PPAGE+24, PPAGE+25, SORT+4, DIVS+4, DIVPG+1, DIVPG+2, DIVPG+3, DIVPG+4, DVALS+7, DVALS+13
    , DVALS+14, DVALS+15, DVALS+16, DVALS+17, DVALS+18, DVALS+19, SETTMP+2, SETTMP+3, SETTMP+5, SETTMP+6
    , NODATA+3, NODATA+4, NODATA+10
    VMSC EXIT+6!
    X PPAGE+17*, PPAGE+18*, PPAGE+19*, PPAGE+20*, PPAGE+21*, PPAGE+22*, PPAGE+23*, PPAGE+24*, PPAGE+25*, PPAGE+30
    , PPAGE+31*, PPAGE+32, PPAGE+33*, PPAGE+34, PPAGE+37*, PPAGE+38*, PPAGE+39*, TMPALL+1*, DVALS+1*, DVALS+9*
    , DVALS+12, EXIT+3!
    XDUZ EXIT+7!, NODATA+5*, NODATA+10
    XDUZ(2 NODATA+5*, NODATA+10
    Y DVALS+1*, DVALS+9*, EXIT+3!, EXIT+6!
    YYY EXIT+5!
    Z EXIT+3!

    Marked Items

    Name Field # of Occurrence
    $T(OS^%ZOSV PPAGE+7
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All