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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSOUTL

Package: Outpatient Pharmacy

Routine: PSOUTL


Information

PSOUTL ;BHAM ISC/SAB - PSO utility routine ;Jun 22, 2018@08:18

Source Information

Source file <PSOUTL.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA FileMan 7 ^%DT  (C,NOW)^%DTC  EN^DDIOL  ^DIC  ^DIE  ^DIK  $$GET1^DIQ  
Outpatient Pharmacy 5 REF^PSOCAN2  (KCMPX,SCMPX)^PSOCMOP  ^PSOCMOPA  ^PSODGAL1  (WARN,WARN1)^PSOUTLA1  
Pharmacy Data Management 2 ^PSSDIUTL  $$DRG^PSSDSAPM  
Integrated Billing 1 $$SERV^IBARX1  
MailMan 1 ^XMD  
Registration 1 (DEM,KVA)^VADPT  

Caller Graph

Caller Graph Total: 64

Package Total Caller Graph
Outpatient Pharmacy 60 PARTIAL DATE  PSO CHECK DRUG INTERACTION  PSO52API  PSOATRF  PSOATRFC  PSOATRFV  PSOAUTOC  PSOBBC  
PSOBKDED  PSOBUILD  PSOCAN  PSOCAN1  PSOCAN2  PSOCAN3  PSOCPDUP  PSOCSRL  
PSODDPR2  PSODDPR5  PSODDPRE  PSODISP  PSODISP3  PSODISPS  PSODRDU2  PSODRDUP  
PSODRG  PSOERXUX  PSOHLNE1  PSOHLNEW  PSOHLUP  PSOHLUP1  PSOOCPGX  PSOORCPY  
PSOORDRG  PSOORED2  PSOOREDT  PSOORFI2  PSOORNE2  PSOORUT1  PSOORUTL  PSOOTMRX  
PSOP  PSOP1  PSOPMP0  PSOPOST  PSOPRK  PSOREF  PSORENW  PSORENW3  
PSORENW4  PSORREF  PSORXVW  PSOUTLA2  PSOVCCA  PSOVERC  PSOVEXRX  PSOXZA15  
PSOXZA6  ^PSRX  REFILL  ^PS(59  
Electronic Health Modernization 1 EHMPSRXDC  
My HealtheVet 1 MHVPRNA  
Order Entry Results Reporting 1 ORUTL3  
VA FileMan 1 ITEM  

Entry Points

Name Comments DBIA/ICR reference
SUSPCAN ;dcl rx from suspense used in new, renew AND verification of Rxs
ACTLOG ;
ACTOUT
QUES ;INSTRUCTIONS FOR RENEW AND REFILL
ENDVCHK
CHK1
K52
S52
KILL
CID ;calculates six months limit on issue dates
CIDH
SPR
SREF
KPR
KREF
ORIG
EX
IBSS
IBSSR
WARN ;move to PSOUTLA1 (p751)
WARN1 ;move to PSOUTLA1
CAN(PSOXRX) ;Clean up Rx when discontinued
ECAN(PSOXRX) ;Clean up Rx when expired
CMOP ;CMOP("L")=LAST FILL... if it is orig Rx =0
CMOP1
CHKCMOP(RX,REA) ;Check if an RX is Transmitted/Retransmitted to CMOP and send alert mail
  • ICR #7636
    • Status: Withdrawn
    • Usage: Controlled Subscription
    TRANCMOP(RX) ;check if a fill is Transmitted or Retransmitted
    MAILCMOP(RX,STR,REA) ;Send mail message to mail group PSX EXTERNAL DISPENSE ALERTS
    PSOCK ;
    PSSDGCK ;
    PSOSUPCK(CHK) ;
    OICHK(DGCKSTA,DGCKDNM) ;only orderable item on order (no drug)
    DISCK(PSRX) ;
    PRFLP ;
    TITRX(RX) ; Returns the titration/maintenance flags
  • ICR #6980
    • Status: Active
    • Usage: Controlled Subscription
    LTHEN(RX) ; Looks for a THEN anywhere in the Complex Order.
    ; Returns: 1 if found and 0 if not found. Complex Order must contain at least one THEN conjunction
    ; in order to mark it as a Titration Rx.
    CONJ(PSOCRX) ;Looks for EXCEPT conjunction; EXCEPT conjunction disabled with PSO*7*477
    CSID() ; Determinte if the ISSUE DATE is for a CS or non-CS (Internal to this routine only)
    CSRX(RXIEN) ; Controlled Substance Rx?
    ; Input: RXIEN - PRESCRIPTION file (#52) pointer

    External References

    Name Field # of Occurrence
    ^%DT CID+1, CIDH
    C^%DTC DISCK+5
    NOW^%DTC KILL+17
    EN^DDIOL CIDH, IBSS+7
    ^DIC OICHK+12, PRFLP+5, PRFLP+6
    ^DIE IBSSR+1, CAN+6, ECAN+6
    ^DIK CAN+3, CAN+4, ECAN+3, ECAN+4
    $$GET1^DIQ MAILCMOP+9, MAILCMOP+24, MAILCMOP+27, MAILCMOP+28, MAILCMOP+29, TITRX+4, TITRX+5, CSID+4, CSID+9, CSRX+4
    , CSRX+5
    $$SERV^IBARX1 IBSSR+1
    REF^PSOCAN2 CAN+3
    KCMPX^PSOCMOP K52+5, KILL+12, KILL+13
    SCMPX^PSOCMOP S52+4
    ^PSOCMOPA TRANCMOP+8
    ^PSODGAL1 PRFLP+22
    WARN^PSOUTLA1 WARN+1
    WARN1^PSOUTLA1 WARN1+1
    ^PSSDIUTL PSSDGCK+1
    $$DRG^PSSDSAPM OICHK+11
    DEM^VADPT MAILCMOP+24
    KVA^VADPT MAILCMOP+43
    ^XMD MAILCMOP+42

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?5,"Enter the item #(s) or RX #(s) you wish to ",$S(PSFROM="N":"renew ",PSFROM="R":"REFILL "),"separated by commas."
    • Line Location: QUES+1
    Function Call: WRITE
    • Prompt: !?5,"For example: 1,2,5 or 123456,33254A,232323B."
    • Line Location: QUES+2
    Function Call: WRITE
    • Prompt: !?5,"Do not enter the same number twice, duplicates are not allowed."
    • Line Location: QUES+3
    Function Call: WRITE
    • Prompt: !?10,$C(7),"RX# ",$P(^PSRX(PSRX,0),"^")," is not a valid choice. (Different Division)"
    • Line Location: CHK1+0
    Function Call: READ
    • Variable: ANS
    • Timeout: DTIME
    • Line Location: CHK1+1
    Function Call: WRITE
    • Prompt: !?10,$C(7),"RX# ",$P(^PSRX(PSRX,0),"^")," is from another division. Continue? (Y/N) "
    • Line Location: CHK1+1
    Function Call: WRITE
    • Prompt: !?10,$C(7),"Answer 'YES' or 'NO'."
    • Line Location: CHK1+2
    Function Call: WRITE
    • Prompt: !!!,"*The following list of order checks is a comprehensive report of all"
    • Line Location: PSOCK+1
    Function Call: WRITE
    • Prompt: !,"Outpatient, Non-VA, and Clinic medication orders on this patient's profile."
    • Line Location: PSOCK+2
    Function Call: WRITE
    • Prompt: !,"It may include orders that are local, remote, active, pending, recently"
    • Line Location: PSOCK+3
    Function Call: WRITE
    • Prompt: !,"discontinued, or expired. Please note that the sort order and format"
    • Line Location: PSOCK+4
    Function Call: WRITE
    • Prompt: !,"displayed in this report differs from the display of MOCHA 1.0 order"
    • Line Location: PSOCK+5
    Function Call: WRITE
    • Prompt: !,"checks which occurs during order processing.*",!
    • Line Location: PSOCK+6
    Function Call: WRITE
    • Prompt: !!,"You have selected a supply item, please select another drug"
    • Line Location: PSOSUPCK+3
    Function Call: WRITE
    • Prompt: !,"or leave blank and hit enter for Profile Order Checks."
    • Line Location: PSOSUPCK+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: PSOSUPCK+4
    Routine Call
    • DIC
    • Line Location:
      • OICHK+12
      • PRFLP+5
      • PRFLP+6
    Routine Call
    • DIE
    • Line Location:
      • IBSSR+1
      • CAN+6
      • ECAN+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    ^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
    ^PS(52.4 - [#52.4] Classic Fileman Calls
    ^PS(52.5 - [#52.5] Classic Fileman Calls
    ^PS(59 - [#59] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" CIDH
    ^DIC(49 - [#49] IBSSR+1
    ^DPT - [#2] KILL+2
    ^PS(50.7 - [#50.7] PRFLP+19
    ^PS(52.4 - [#52.4] CAN+4, ECAN+4
    ^PS(52.41 - [#52.41] OICHK+6
    ^PS(52.5 - [#52.5] K52, K52+2, K52+3, K52+4!, K52+5!, K52+6!, S52+1, S52+2, S52+3*, S52+4*
    , S52+5*, KILL+2, KILL+4!, KILL+5, KILL+6!, KILL+7!, KILL+8, KILL+10, KILL+11!, KILL+12!
    , KILL+13!, KILL+14!, KILL+15!, CAN+3, ECAN+3, CMOP1+4
    ^PS(55 - [#55] ACTOUT*, ACTOUT+2, ACTOUT+3*, OICHK+9
    ^PS(59 - [#59] MAILCMOP+14
    ^PSDRUG - [#50] PSOSUPCK+2, PRFLP+19, PRFLP+20
    ^PSRX - [#52] SUSPCAN+1, SUSPCAN+2!, SUSPCAN+3*, ACTLOG+2*, ACTOUT, ACTOUT+1, ACTOUT+3, ENDVCHK, CHK1, CHK1+1
    , K52+2, S52, S52+1, KILL+2*, KILL+16, KILL+18*, KILL+19*, KILL+21*, SPR, SPR+1*
    , SREF, SREF+1*, SREF+2*, KPR, KPR+2*, KREF+1*, KREF+2, ORIG*, ORIG+1*, CAN+2
    , CAN+3, CAN+5*, CAN+6, ECAN+2, ECAN+5*, ECAN+6, CMOP1+1, CMOP1+2, CMOP1+3, MAILCMOP+14
    , DISCK+4, TITRX+3, LTHEN+5, LTHEN+6, CONJ+2, CONJ+4, CONJ+5, CSID+4
    ^PSRX("AH" CAN+5!, ECAN+5!
    ^XMB(3.8 - [#3.8] MAILCMOP+19, MAILCMOP+20
    ^XUSEC("PSXCMOPMGR" MAILCMOP+22

    Label References

    Name Line Occurrences
    $$CSID CID+1, CIDH
    $$DISCK PRFLP+12
    $$TRANCMOP CHKCMOP+8
    CHK1 CHK1+2
    EX KPR+2, KREF, KREF+1, ORIG, ORIG+1
    KILL K52+2, K52+3
    KREF KPR+1, KREF+2
    MAILCMOP CHKCMOP+8
    OICHK PRFLP+9
    ORIG KPR+1
    SREF SREF

    Naked Globals

    Name Field # of Occurrence
    ^( ACTLOG+2, ACTOUT!, ACTOUT+1, ACTOUT+2!
    ^("ND" PRFLP+20
    ^("P" K52+3
    ^(0 SUSPCAN+2*, ACTOUT+1, K52+3, S52+2, KILL+6, KILL+13, KILL+14, CMOP1+3
    ^(2 ACTOUT, ENDVCHK, PRFLP+19

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % KILL+18
    >> %DT CID+1*, CIDH*
    >> %DT(0 CID+1*
    ANS ENDVCHK~, CHK1+1*, CHK1+2, CHK1+3
    CHK PSOSUPCK~, PSOSUPCK+2!, PSOSUPCK+5!
    CMDT MAILCMOP+7~, MAILCMOP+10*, MAILCMOP+11*, MAILCMOP+38
    CMOP CHKCMOP+6~
    CMOP( CMOP1+3*
    CMOP("L" CMOP1+1*
    CMOP("S" CMOP1+4*
    CMST MAILCMOP+7~, MAILCMOP+13*, MAILCMOP+31, MAILCMOP+38
    CNT KILL~, KILL+16*, KILL+17*, KILL+18, KILL+19, KILL+21
    CRX CMOP+5*, CMOP1+1, CMOP1+2, CMOP1+3, CMOP1+4, CMOP1+5!
    CSID CSID+2~*, CSID+10*, CSID+12
    DA KILL+17*, KILL+18, KPR+1, KREF+2, IBSSR+1*, CAN+1~, CAN+3*, CAN+4*, CAN+6*, ECAN+1~
    , ECAN+3*, ECAN+4*, ECAN+6*!, CMOP+5, TRANCMOP+7~, TRANCMOP+8*, CSID+4
    DA(1 K52, S52, S52+1, KILL+2, KILL+16, KILL+18, KILL+19, KILL+21, SPR, SPR+1
    , SREF, SREF+1, SREF+2, KPR, KPR+2, KREF+1, KREF+2, ORIG, ORIG+1
    DEA CSID+2~, CSID+9*, CSID+10, CSRX+3~, CSRX+5*, CSRX+6
    DFN KILL~, KILL+2*, KILL+4, KILL+7, KILL+15!, MAILCMOP+7~, MAILCMOP+24*, OICHK+9, PRFLP+21
    DGCKDNM OICHK~, OICHK+5, OICHK+8, PRFLP+2*, PRFLP+4*, PRFLP+5, PRFLP+9, PRFLP+12, PRFLP+14, PRFLP+15*
    , PRFLP+16*, PRFLP+17, PRFLP+24!
    DGCKSTA OICHK~, OICHK+4, OICHK+5, OICHK+7, OICHK+8, PRFLP+2*, PRFLP+4*, PRFLP+9, PRFLP+12, PRFLP+14
    , PRFLP+24!
    DIC OICHK+12*!, PRFLP+5*!, PRFLP+6*!
    DIC(0 OICHK+12*, PRFLP+5*, PRFLP+6*
    DIE IBSSR+1*!, CAN+6!*, ECAN+6!*
    DIK CAN+3*!, CAN+4*!, ECAN+3!*, ECAN+4!*
    DIV MAILCMOP+8~, MAILCMOP+14*
    DIVN MAILCMOP+8~, MAILCMOP+14*, MAILCMOP+31
    DOSE1 CONJ+3~, CONJ+5*, CONJ+6
    DOSEIEN CONJ+3~, CONJ+4*, CONJ+5
    DR IBSSR+1*, CAN+6*, ECAN+6*!
    DRGIEN CSID+2~, CSID+4*, CSID+6*, CSID+8, CSID+9, CSRX+3~, CSRX+4*, CSRX+5
    DRUG MAILCMOP+8~, MAILCMOP+28*, MAILCMOP+34
    DT ACTLOG+2, ACTOUT, CAN+6, ECAN+6, DISCK+6
    DTIME CHK1+1
    DTOUT OICHK+2~, OICHK+12!, PRFLP+23!, PRFLP+24!
    DUOUT OICHK+2~, OICHK+12!, PRFLP+23!, PRFLP+24!
    DUZ KILL+18
    EXCEPT CONJ+3~, CONJ+6*, CONJ+7
    FILL MAILCMOP+8~, MAILCMOP+12*, MAILCMOP+32
    FNDTHEN LTHEN+3~, LTHEN+4*, LTHEN+5, LTHEN+7*, LTHEN+8
    IFN CAN+1~
    MAILGRP MAILCMOP+8~, MAILCMOP+15*, MAILCMOP+16, MAILCMOP+19
    NAME MAILCMOP+8~, MAILCMOP+25*, MAILCMOP+33
    NODE SPR*, SPR+1, SREF*, SREF+1, SREF+2, SREF+3!, KPR*, KPR+1*, KPR+2, KREF*
    , KREF+1, KREF+2, ORIG, ORIG+1, EX!, CAN+1~
    PAT KILL~, KILL+2*, KILL+4, KILL+15!
    PRV MAILCMOP+8~, MAILCMOP+29*, MAILCMOP+39
    >> PSDFN ACTOUT, ACTOUT+2, ACTOUT+3
    >> PSFROM QUES+1
    PSI SUSPCAN+1*, SUSPCAN+2*!, SUSPCAN+3!, ACTLOG+2*, ACTOUT*, ACTOUT+1*
    PSID CID+1*!
    PSLAST SUSPCAN+1*, SUSPCAN+2!
    >> PSMSG ACTLOG+2
    PSOALLGY PRFLP+1~
    PSOALLGY( PRFLP+14*, PRFLP+16, PRFLP+17
    PSOC7 KILL+10~*, KILL+11, KILL+12, KILL+13
    >> PSOCLC ACTLOG+2
    PSOCMOP CHKCMOP+6~, CHKCMOP+8, TRANCMOP+9
    PSOCOUNT LTHEN+3~, LTHEN+4*, LTHEN+5*, LTHEN+6
    PSOCRX CONJ~, CONJ+2, CONJ+4, CONJ+5
    PSODATA PRFLP+1~, PRFLP+17*, PRFLP+18, PRFLP+21
    >> PSODFN PRFLP+21*
    PSODGCKF PRFLP+2*, PRFLP+24!
    >> PSODGCKX PSOSUPCK+1
    PSODGCRX PRFLP+1~, PRFLP+21*
    >> PSODIV ENDVCHK
    PSODRIEN PRFLP+1~, PRFLP+15*, PRFLP+16*, PRFLP+17
    PSODRUG PRFLP+1~
    PSODRUG("IEN" PRFLP+13*, PRFLP+14, PRFLP+17*, PRFLP+19, PRFLP+20, CSID+6
    PSODRUG("NAME" PRFLP+13*, PRFLP+14, PRFLP+18*
    PSODRUG("NDF" PRFLP+20*
    PSODRUG("OI" PRFLP+19*
    PSODRUG("OIN" PRFLP+19*
    PSODRUG("VA C LASS" , PRFLP+13*, PRFLP+14, PRFLP+18*
    PSODRUG2 OICHK+2~, OICHK+11*, OICHK+12, OICHK+13!
    PSOHLP IBSS~, IBSS+7!
    PSOHLP(1 IBSS*, IBSS+1*
    PSOHLP(2 IBSS+2*, IBSS+3*
    PSOHLP(3 IBSS+4*, IBSS+5*
    PSOHLP(4 IBSS+6*
    PSOI OICHK+2~, OICHK+3*, OICHK+6*, OICHK+9*, OICHK+10, OICHK+11, OICHK+13!
    PSOIBFL IBSSR~*, IBSSR+1*
    PSOIBLP IBSSR~, IBSSR+1*
    PSOIBST IBSSR~, IBSSR+1*
    PSOIEN MAILCMOP+7~, MAILCMOP+19*, MAILCMOP+20
    PSOKEYN MAILCMOP+7~, MAILCMOP+21*, MAILCMOP+22*, MAILCMOP+23
    >> PSOPSDAL KILL+21
    PSORD OICHK+2~, OICHK+5*, OICHK+6, OICHK+8*, OICHK+9, OICHK+13!
    PSORFKILL K52+1, K52+7!
    >> PSOSD PRFLP+3
    >> PSOSD( OICHK+5, OICHK+8, PRFLP+4, PRFLP+12, PRFLP+14
    PSOSFN K52!*
    >> PSOSITE ENDVCHK, IBSSR+1
    PSOSX S52*, S52+6!
    PSOSXDT S52+6!
    >> PSOSYS CHK1, CHK1+1
    PSOTEXT MAILCMOP+7~
    PSOTEXT(1 MAILCMOP+32*
    PSOTEXT(2 MAILCMOP+33*
    PSOTEXT(3 MAILCMOP+34*
    PSOTEXT(4 MAILCMOP+35*, MAILCMOP+36*, MAILCMOP+37*
    PSOTEXT(5 MAILCMOP+38*
    PSOTEXT(6 MAILCMOP+39*
    PSOTEXT(7 MAILCMOP+40*
    PSOTEXT(8 MAILCMOP+41*
    PSOTHEN LTHEN+3~, LTHEN+4*, LTHEN+6*, LTHEN+7
    PSOTRANS TRANCMOP+7~, TRANCMOP+9*, TRANCMOP+10
    PSOXRX CAN~, CAN+2, CAN+3, CAN+4, CAN+5, CAN+6, ECAN~, ECAN+2, ECAN+3, ECAN+4
    , ECAN+5, ECAN+6
    PSOXX K52+2~*, KILL+19, KILL+21
    PSPOP ENDVCHK~*, CHK1*, CHK1+1*, CHK1+3*
    >> PSREA ACTLOG+2, ACTOUT, ACTOUT+1, ACTOUT+3
    PSRX SUSPCAN+1, SUSPCAN+2, SUSPCAN+3, ACTLOG+2, ACTOUT, ACTOUT+1, ACTOUT+2, ACTOUT+3, ENDVCHK, CHK1
    , CHK1+1, DISCK~, DISCK+4, PRFLP+1~, PRFLP+12*
    >> PSRXREF ACTLOG+2
    PSS ACTLOG+1~, ACTOUT+1*, ACTOUT+2
    REA CHKCMOP~, CHKCMOP+7*, CHKCMOP+8, MAILCMOP~, MAILCMOP+36, MAILCMOP+37
    >> RESK KILL+21
    RF SPR*, SREF+3!, KPR*, EX!, CAN+1~
    RFID S52*, S52+3, S52+4, S52+5, S52+6!
    RIFN S52*, S52+6!
    RX CHKCMOP~, CHKCMOP+8, TRANCMOP~, TRANCMOP+8, TRANCMOP+10, MAILCMOP~, MAILCMOP+9, MAILCMOP+14, MAILCMOP+24, MAILCMOP+27
    , MAILCMOP+28, MAILCMOP+29, TITRX~, TITRX+2, TITRX+3, TITRX+4, TITRX+5, LTHEN~, LTHEN+5, LTHEN+6
    RXIEN CSRX~, CSRX+4
    RXO MAILCMOP+8~, MAILCMOP+9*, MAILCMOP+31, MAILCMOP+32
    RXSTS MAILCMOP+8~, MAILCMOP+27*, MAILCMOP+35
    SDT K52+4*, K52+5, K52+6, K52+7!, KILL+11*
    SFN K52*, K52+2, K52+3, K52+4, K52+5, K52+6, K52+7!, S52+1*, S52+2, S52+3
    , S52+4, S52+5, S52+6!, KILL+1, KILL+2, KILL+4, KILL+5, KILL+6, KILL+7, KILL+8
    , KILL+10, KILL+11, KILL+12, KILL+13, KILL+14, KILL+15!
    SSN MAILCMOP+8~, MAILCMOP+26*, MAILCMOP+33
    STR MAILCMOP~, MAILCMOP+10, MAILCMOP+12, MAILCMOP+13
    SUB KILL~, KILL+16*
    SUS1 SUSPCAN+2!, SUSPCAN+3!
    SUS2 SUSPCAN+2!, SUSPCAN+3!
    SUSD CAN+1~, CAN+3*
    SUSX SUSPCAN+2!, SUSPCAN+3!
    U MAILCMOP+10, MAILCMOP+12, MAILCMOP+13
    VADM MAILCMOP+7~
    VADM(1 MAILCMOP+25
    VADM(2 MAILCMOP+26
    X K52+3, CID+1*, CIDH*, KPR+1, KREF+2, CMOP1~, CMOP1+1*, CMOP1+2*, CMOP1+3, CMOP1+4*
    , CMOP1+5!, OICHK+12*, DISCK+3~, DISCK+6, PRFLP+5*, PRFLP+6*, PRFLP+23!, PRFLP+24!
    X1 DISCK+3~, DISCK+4*
    X2 DISCK+3~, DISCK+4*
    XMDUZ MAILCMOP+7~, MAILCMOP+30*
    XMSUB MAILCMOP+7~, MAILCMOP+31*
    XMTEXT MAILCMOP+7~, MAILCMOP+42*
    XMY MAILCMOP+7~
    XMY( MAILCMOP+23*
    XMY("G." MAILCMOP+16*
    Y K52+1*, K52+3, CID+1, CIDH, IBSSR+1*, OICHK+12*, DISCK+3~, PRFLP+6, PRFLP+7, PRFLP+10
    , PRFLP+13, PRFLP+23!, PRFLP+24!
    Y(0 PRFLP+13
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All