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

Package: Pharmacy Benefits Management

Routine: PSUTL


Information

PSUTL ;BIR/PDW - Utilities for AR/WS extracts ;12 AUG 1999

Source Information

Source file <PSUTL.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 FIELD^DID  $$IENS^DILF  GETS^DIQ  
Kernel 1 DOLRO^%ZOSV  

Caller Graph

Caller Graph Total: 58

Package Total Caller Graph
Pharmacy Benefits Management 58 PSUAA1  PSUAA2  PSUAMC  PSUAR0  PSUAR1  PSUAR2  PSUAR3  PSUAR4  
PSUAR7  PSUCP  PSUCP1  PSUCP2  PSUCS1  PSUCS17  PSUCS2  PSUCS3  
PSUCS4  PSUCSR0  PSUCSR1  PSUCSR2  PSUDEM1  PSUDEM2  PSUDEM4  PSUDEM7  
PSULR0  PSULR1  PSULR4  PSULR5  PSUOP0  PSUOP1  PSUOP2  PSUOP3  
PSUOP4  PSUOP6  PSUOP8  PSUOPMD  PSUPR0  PSUPR1  PSUPR2  PSUPR3  
PSUPR4  PSUPR5  PSURT2  PSUSUM2  PSUTL1  PSUUD0  PSUUD1  PSUUD2  
PSUUD4  PSUUD5  PSUUD6  PSUUD7  PSUV0  PSUV1  PSUV3  PSUV5  
PSUVIT1  PSUVIT2  

Entry Points

Name Comments DBIA/ICR reference
VARKILL ;PEP Kill variable PSU* namespace
GETS(PSUFILE,PSUDA,PSUDR,PSUROOT,PSUFORM) ;
; Example S PSUSITE=6025
; D GETS^PSUTL(200.02,"DUZ,PSUSITE",".01","DIV")
; returns
; DIV(.01)="HINES DEVELOPMENT"
  • ICR #2921
    • Status: Withdrawn
    • Usage: Private
    UPPER(PSUX) ;Convert lower case to upper case
    VALI(PSUFILE,PSUDA,PSUFLD) ; Returns Internal Value
  • ICR #2921
    • Status: Withdrawn
    • Usage: Private
    GETM(PSUFILE,PSUDA,PSUFLD,PSUROOT,PSUFORM) ;EP RETURN MULTIPLES
    ; PSUFILE is the immediate upper level file number of the one desired
    ; PSUDA is the "DO,D1,Dx .." IENS to get to the immediate upper level
    ; PSUFLD is the field notation for the multiple at the upper level
    ; "3*"
    ; appended with "^" and the list of fields ".01;.02;9.3;..."
    ; resulting in "3*^.01;.02;9.3;..."
    ; PSUROOT is the target closed array reference
    ; PSUFORM is the format as in GET^DIQ
    ; return form is @PSUROOT@(da,fld)=VALUE
  • ICR #2921
    • Status: Withdrawn
    • Usage: Private
    PARSE(XBDA) ;PEP - parse DA literal into da array
    VAL(PSUFILE,PSUDA,PSUFLD) ; Returns External Value
  • ICR #2921
    • Status: Withdrawn
    • Usage: Private
    MOVEI(PSUREF) ;EP Move @PSUREF@(Fld,"I") values to @PSUREF@(Fld)
  • ICR #2921
    • Status: Withdrawn
    • Usage: Private
    MOVEMI(PSUREF) ;EP Move @PSUREF@(da,Fld,"I") values to @PSUREF@(da,Fld)
  • ICR #2921
    • Status: Withdrawn
    • Usage: Private

    External References

    Name Field # of Occurrence
    DOLRO^%ZOSV VARKILL+3
    FIELD^DID GETM+27
    $$IENS^DILF GETS+11
    GETS^DIQ GETS+13

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^TMP("PSUDIQ" GETS+12!, GETS+17, GETS+18!, GETM+31, GETM+32!
    ^TMP("PSUVAR" VARKILL+5, VARKILL+6!

    Label References

    Name Line Occurrences
    GETS VAL+4, VALI+4, GETM+29
    PARSE GETS+10

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    D PARSE+2~
    D( PARSE+3*, PARSE+5
    DA GETS+6~, GETS+11, PARSE+1*, PARSE+7*
    DA( PARSE+5*, PARSE+6*
    DA(0 PARSE+7, PARSE+8!
    FLD GETM+36~, GETM+37*, GETM+38*, GETM+40*, GETM+41*
    I GETM+36~, GETM+38*, PARSE+2~, PARSE+3*, PARSE+4*, PARSE+5, PARSE+6
    J PARSE+2~, PARSE+5*, PARSE+6*
    PSUDA GETS~, GETS+7, GETS+10, VAL~, VAL+2, VAL+4, VALI~, VALI+2, VALI+4, GETM~
    , GETM+18, GETM+29, MOVEMI+1~, MOVEMI+2*, MOVEMI+3
    PSUDID GETM+17~
    PSUDID("SPECIFIER" GETM+28
    PSUDR GETS~, GETS+7, GETS+13
    PSUFILE GETS~, GETS+7, GETS+13, GETS+17, VAL~, VAL+2, VAL+4, VALI~, VALI+2, VALI+4
    , GETM~, GETM+18, GETM+27, GETM+29
    PSUFLD VAL~, VAL+2, VAL+4, VAL+5, VALI~, VALI+2, VALI+4, VALI+5, GETM~, GETM+18
    , GETM+22, GETM+24*, GETM+25, GETM+27, GETM+29, MOVEI+1~, MOVEI+2*, MOVEMI+1~, MOVEMI+3*
    PSUFLDL GETM+23!, GETM+24*, GETM+25, GETM+33, GETM+37, GETM+38, GETM+42!
    PSUFLDL( GETM+37*, GETM+38*, GETM+41
    PSUFORM GETS~, GETS+9*, GETS+13, GETM~, GETM+21*, GETM+29
    PSUIEN GETS+6~, GETS+11*, GETS+13, GETS+17, GETM+31*, GETM+39*, GETM+41
    PSUMTUL GETS+15, GETM+17~, GETM+20*
    PSUREF MOVEI~, MOVEI+2, MOVEMI~, MOVEMI+2, MOVEMI+3
    PSUROOT GETS~, GETS+7, GETS+17, GETM~, GETM+18, GETM+29, GETM+31, GETM+39, GETM+41
    PSUSUB GETM+17~, GETM+28*, GETM+31
    PSUTMP VAL+1~, VALI+1~
    PSUTMP( VAL+5, VALI+5
    PSUX UPPER~, UPPER+1
    U GETM+24
    >> X VARKILL+2*, VARKILL+5*
    XBDA PARSE~, PARSE+1, PARSE+3
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All