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

Package: Outpatient Pharmacy

Routine: PSON52


Information

PSON52 ;BIR/DSD - files new entries in prescription file ;Jan 20, 2022@11:18:18

Source Information

Source file <PSON52.m>

Call Graph

Call Graph

Call Graph Total: 30

Package Total Call Graph
Outpatient Pharmacy 16 ECMESND^PSOBPSU1  RXACT^PSOBPSU2  ($$STATUS,$$SUBMIT)^PSOBPSUT  $$TECH2^PSODGDGP  ICD^PSODIAG  $$ERXIEN^PSOERXUT  $$GETNDC^PSONDCUT  NOOR^PSONEW  
GACT^PSOPFSU0  (PARK,RMP)^PSOPRKA  $$PSOET^PSOREJP3  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  ALERT^PSORENW0  (BBRX,ORC)^PSORN52C  SUS^PSORXL  
VA FileMan 6 (C,NOW)^%DTC  $$FIND1^DIC  FILE^DICN  ^DIE  IX1^DIK  $$GET1^DIQ  
Pharmacy Data Management 3 $$DS^PSSDSAPI  PSOUL^PSSLOCK  SAVNDC^PSSNDCUT  
Kernel 2 (T0,T1)^%ZOSV  ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  
Integrated Billing 1 $$SWSTAT^IBBAPI  
Mental Health 1 ^YSCLTST6  
Order Entry Results Reporting 1 $$SUBSCRIB^ORDEA  

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: 4

Package Total Caller Graph
Outpatient Pharmacy 4 PSONEW  PSOORNE1  PSOORNEW  PSORN52  

Entry Points

Name Comments DBIA/ICR reference
EN(PSOX) ;Entry Point
START ;
END
INIT ;
DT
INITX
NFILE
IBQ ;I $G(PSOBILL)=2 S ^PSRX(PSOX("IRXN"),"IBQ")=$S($G(PSOX("NEWCOPAY")):0,1:1)
ACLOG ;activity log (digitally signed CS orders)
PS55 ;
PS55X
DIK ;
FINISH ;
ANQ
FINISHP ;
FINISHX ;call to build Rx array for bingo board
SAVETIT(TITRX,MNTRX) ; Save Titration/Maintenance dose Rx information
EOJ ;
DD ;;PSOX("RX #");;0;;1

External References

Name Field # of Occurrence
C^%DTC DTDT+11
NOW^%DTC DT+12, ACLOG+2, ANQANQ+8
T0^%ZOSV START+1
T1^%ZOSV START+4
$$FIND1^DIC ANQ+8
FILE^DICN NFILE+3, ANQ+1, ANQ+12
^DIE DIK+1, ANQ+14
IX1^DIK DIK+2
$$GET1^DIQ DT+10, NFILE+37, ANQ+17, ANQ+36, SAVETIT+3, SAVETIT+5
$$SWSTAT^IBBAPI IBQ+5
$$SUBSCRIB^ORDEA ACLOG+14
ECMESND^PSOBPSU1 ANQ+30
RXACT^PSOBPSU2 NFILE+33, SAVETIT+3, SAVETIT+5
$$STATUS^PSOBPSUT ANQ+35
$$SUBMIT^PSOBPSUT ANQ+29
$$TECH2^PSODGDGP ANQ+21
ICD^PSODIAG IBQ+4
$$ERXIEN^PSOERXUT NFILE+37
$$GETNDC^PSONDCUT ANQ+36
NOOR^PSONEW NFILE+1
GACT^PSOPFSU0 IBQ+5
PARK^PSOPRKA START+7
RMP^PSOPRKA START+7
$$PSOET^PSOREJP3 ANQ+32
$$HDLG^PSOREJU1 ANQ+34
$$FIND^PSOREJUT ANQ+33
ALERT^PSORENW0 ANQ+16
BBRX^PSORN52C FINISHX+1
ORC^PSORN52C DIK+3
SUS^PSORXL ANQ+24
$$DS^PSSDSAPI NFILE+4
PSOUL^PSSLOCK EOJ+3
SAVNDC^PSSNDCUT ANQ+36
$$FMADD^XLFDT DT+3, DT+5
$$FMDIFF^XLFDT DT+4
$$FMTE^XLFDT ACLOG+10
^YSCLTST6 ANQ+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
^PS(52.49 - [#52.49] GET1^DIQ
^PS(52.52 - [#52.52] Classic Fileman Calls,  FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" PS55+1
^PS(52.41 - [#52.41] NFILE+36
^PS(52.52 - [#52.52] ANQANQ+2*
^PS(53 - [#53] INIT+10, IBQ+2
^PS(55 - [#55] PS55+1, PS55+2, PS55+3, PS55+5*, PS55+6*, PS55X
^PSRX - [#52] START+8, NFILE+6*, NFILE+7*, NFILE+8*, NFILE+9*, NFILE+11*, NFILE+13*, NFILE+16, NFILE+20*, NFILE+23*
NFILE+24*, NFILE+25*, NFILE+27*, NFILE+28*, NFILE+30*, NFILE+32*, NFILE+35*, NFILE+38*, NFILE+39, NFILE+40*
NFILE+43*, NFILE+45*, NFILE+46*, NFILE+48*, NFILE+49*, NFILE+50*, IBQ+3*, ACLOG+3, ACLOG+5*, ACLOG+7*
ACLOG+9*, ACLOG+10*, ACLOG+11*, ACLOG+12*, ACLOG+13*, ACLOG+14*, ACLOG+15*, SAVETIT+1, SAVETIT+2*, SAVETIT+4*
^PSRX("ACP" START+8*
^PSRX("B" IBQ+8, EOJ+2
^TMP("PSODAI" NFILE+42, NFILE+44, NFILE+45, NFILE+47!
^TMP("PSODGI" FINISHX+3!
^TMP("PSODGS" FINISHX+3!
^TMP("PSODOSF" NFILE+4, FINISHX+3!
^TMP("PSOSER" FINISHX+3!
^TMP("PSOSERS" FINISHX+3!
^TMP("PSOTDD" FINISHX+3!
^XUSEC("PSDRPH" INIT+4
^XUSEC("PSORPH" NFILE+4, DIK+1, ANQ+21, ANQ+22

Label References

Name Line Occurrences
ACLOG NFILE+35
ANQ ANQANQ+8
DIK START+3
DT INIT+6
END START+2
EOJ END
FINISH START+5
FINISHP ANQ+22
FINISHX ANQ+22, ANQ+24, FINISHP+1
INIT START+2
NFILE START+2
PS55 START+3
SAVETIT IBQ+6

Naked Globals

Name Field # of Occurrence
^("IB" START+8
^(0 NFILE+28*, NFILE+46*, PS55+2*
^(2 START+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% INIT+9~*, INIT+10*, DT+12!, ACLOG+2, ANQANQ+1, ANQ+2!, ANQ+8, ANQ+15!
%DT INIT+1!
ACTION ANQ+27~, ANQ+29, ANQ+30*, ANQ+32*, ANQ+34*
>> ANQDATA ANQANQ+2, ANQ+5, ANQ+6*, ANQ+7*, ANQ+8, ANQ+9, ANQ+10
ANQREM ANQ+2!, ANQ+15!
>> BBFLG FINISHX+1*
>> BINGCRT FINISHX+1*
>> BINGRTE FINISHX+1*
>> CLOZPAT INIT+6, DT+2
CNT ACLOG+1~, ACLOG+3*, ACLOG+4, ACLOG+5*, ACLOG+7*, ACLOG+9*, ACLOG+10*, ACLOG+11*, ACLOG+12*, ACLOG+13*
ACLOG+14*, ACLOG+15
>> COMM NFILE+32*, NFILE+33
D NFILE+23*, NFILE+24!, NFILE+28*, NFILE+41!
DA DIK+1*, DIK+2!*, DIK+3*, ANQ+12!, ANQ+13*, ANQ+14!, ANQ+24*!, EOJ+2!
DAI NFILE+44*, NFILE+45, NFILE+47!
DD NFILE+3!, ANQ+1!, ANQ+11!, ANQ+12!
>> DEA INIT+3*
>> DEA("CS" INIT+7
DIC NFILE+3*!, ANQ+1*!, ANQ+11*, ANQ+12!
DIC(0 NFILE+3*, ANQ+1*, ANQ+11*
DIE DIK+1*!, ANQ+13*, ANQ+14!
DIK DIK+2!*
DLAYGO NFILE+3*!, ANQ+1*!, ANQ+11*, ANQ+12!
DO NFILE+3!, ANQ+1!, ANQ+11!, ANQ+12!
DR DIK+1*!, ANQ+12!, ANQ+13*, ANQ+14!
DT NFILE+24, NFILE+30, ANQ+24
DTM ANQ+8~*, ANQ+11
DTTM ACLOG+1~, ACLOG+2*, ACLOG+5, ACLOG+7, ACLOG+9, ACLOG+10, ACLOG+11, ACLOG+12, ACLOG+13, ACLOG+14
DUZ INIT+4, NFILE+2, NFILE+4, ACLOG+5, ACLOG+7, ACLOG+9, ACLOG+10, ACLOG+11, ACLOG+12, ACLOG+13
ACLOG+14, DIK+1, ANQ+21, ANQ+22
EXP DT+3~*, DT+4, DT+5*, DT+6*, DT+7
HLDSIG NFILE+41!
>> I NFILE+6*, NFILE+7, NFILE+8
MNTRX SAVETIT~, SAVETIT+1, SAVETIT+2, SAVETIT+3, SAVETIT+4, SAVETIT+5
OCNT ACLOG+1~, ACLOG+4*, ACLOG+15
OLENT EOJ+2!
>> OR0 DT+12, NFILENFILE+2, NFILE+34, NFILE+35, NFILE+36, ACLOG+14
ORDIEN NFILE+36~*, NFILE+37
OTHDOS EOJ+2!
PS52 ANQ+13~*
PSO1PH ANQ+8~, ANQ+9*
PSO2PH ANQ+8~, ANQ+9*
PSOANSQ IBQ+7!
PSOANSQ("CV" IBQ+1
PSOANSQ("HNC" IBQ+1
PSOANSQ("MST" IBQ+1
PSOANSQ("PGW" IBQ+1
PSOANSQ("RAD" IBQ+1
PSOANSQ("SC" IBQ+1
PSOANSQ("SHAD" IBQ+1
PSOANSQ("VEH" IBQ+1
PSOANSQD IBQ+7!
>> PSOCOU DIK+1
>> PSOCOUU DIK+1
>> PSOCSP("# OF REFILLS" , ACLOG+13
>> PSOCSP("DAYS SUPPLY" , ACLOG+11
>> PSOCSP("DOSE ORDERED" , ACLOG+8, ACLOG+9
>> PSOCSP("DOSE" ACLOG+6, ACLOG+7
>> PSOCSP("ISSUE DATE" , ACLOG+10
>> PSOCSP("NAME" ACLOG+5
>> PSOCSP("QTY" ACLOG+12
>> PSODFN PS55+1, PS55+2, PS55+3, PS55+5, PS55+6, PS55XANQ+21
>> PSODRUG("DEA" INIT+3
>> PSODRUG("IEN" ANQ+17
>> PSODRUG("NAME" ACLOG+5
>> PSODRUG("OI" NFILE+2
PSOERX ANQ+27~, ANQ+28*, ANQ+29, ANQ+30, ANQ+32, ANQ+33, ANQ+34, ANQ+35, ANQ+36
PSOFINFL NFILE+41!
>> PSOID INIT+1
PSOINSFL NFILE+30, NFILE+41!
PSON52 NFILE+5*, EOJ+2!
PSON52( NFILE+4*, NFILE+5*, NFILE+13
PSON52("QFLG" START+2, INIT+5*
>> PSONEW("# OF REFILLS" , ACLOG+13
>> PSONEW("CLERK CODE" , NFILE+2*, NFILE+33
>> PSONEW("DAYS SUPPLY" , ACLOG+11
>> PSONEW("DFLG" START+2, NFILENFILE+1
>> PSONEW("DOSE ORDERED" , ACLOG+8
>> PSONEW("DOSE" ACLOG+6
>> PSONEW("ENT" EOJ+2!
>> PSONEW("INS" EOJ+2!
>> PSONEW("ISSUE DATE" , ACLOG+10
>> PSONEW("PATIE NT STATUS" , IBQ+2
>> PSONEW("QTY" ACLOG+12
>> PSONEW("REMARKS" NFILE+2*
>> PSONEW("STOP DATE" , PS55+6
>> PSOPAR ANQ+24
PSOPRC EOJ+2!
PSOREASN ANQ+8~, ANQ+10*
PSOREMRK ANQ+8~, ANQ+10*
>> PSORX("MAIL/WINDOW" FINISHX+1
>> PSORX("PATIEN T STATUS" , INIT+9
>> PSORX("PHARM" DT+15!
>> PSORX("PSOL" FINISHP+1*, FINISHP+2, FINISHP+3*, FINISHP+4*
>> PSORX("VERIFY" DT+13
>> PSORXED("ENT" EOJ+2!
>> PSORXED("INS" EOJ+2!
PSOSCFLD IBQ+1~*, IBQ+2, IBQ+3!
>> PSOSCP IBQ+1, IBQ+2
>> PSOSIGFL NFILE+2, NFILE+35
>> PSOSITE ANQ+36
PSOTFIN ANQ+20~, ANQ+21*, ANQ+22
>> PSOTITRF NFILE+31
PSOTITRX DT+9, DT+10, IBQ+6, IBQ+7!
PSOUSER ANQ+8~, ANQ+9*
PSOX EN~, ANQ+21
PSOX("# OF RE FILLS" , INIT+5, DT+2, DT+11
PSOX("55 IEN" PS55+4*
PSOX("CHCS NU MBER" , NFILE+48
PSOX("CONJUNCTION" NFILE+7
PSOX("COPIES" DT+14*
PSOX("CS" INIT+2*, INIT+3*, INIT+4, INIT+7, DT+4, DT+5, NFILE+37, NFILE+39
PSOX("DAYS SU PPLY" , INIT+5, INIT+7, DT+3, DT+11
PSOX("DISPENS ED DATE" , DT+12*
PSOX("DOSE OR DERED" , NFILE+6
PSOX("DOSE" NFILE+6
PSOX("DURATION" NFILE+7
PSOX("ENT" NFILE+6, NFILE+9
PSOX("EXTERNA L SYSTEM" , NFILE+49
PSOX("FILL DA TE" , DT+2, DT+3, DT+6, DT+11, DT+12, ANQ+24
PSOX("IND" NFILE+11
PSOX("INDF" NFILE+11
PSOX("INDO" NFILE+11
PSOX("INS" EOJ+2!
PSOX("IRXN" START+7, START+8, NFILE+3*, NFILE+4, NFILE+5, NFILE+6, NFILE+7, NFILE+8, NFILE+9, NFILE+11
NFILE+13, NFILE+16, NFILE+20, NFILE+23, NFILE+24, NFILE+25, NFILE+27, NFILE+28, NFILE+30, NFILE+32
NFILE+33, NFILE+35, NFILE+38, NFILE+39, NFILE+40, NFILE+43, NFILE+45, NFILE+46, NFILE+48, NFILE+49
NFILE+50, IBQ+3, IBQ+5, IBQ+6, IBQ+8, ACLOG+3, ACLOG+5, ACLOG+7, ACLOG+9, ACLOG+10
ACLOG+11, ACLOG+12, ACLOG+13, ACLOG+14, ACLOG+15, PS55+5, PS55+6, DIK+1, DIK+2, DIK+3
ANQ+2, ANQ+21, ANQ+24, ANQ+28, FINISHP+1, FINISHP+3, FINISHP+4, FINISHP+5, EOJ+2, EOJ+3
PSOX("ISSUE D ATE" , INIT+1*, INIT+5, DT+4, DT+5
PSOX("LOGIN D ATE" , DT+12*
PSOX("MAIL/WINDOW" START+7, ANQ+29
PSOX("NEWCOPAY" NFILE+50, IBQ+7!
PSOX("NEXT PO SSIBLE REFILL" , DT+11*
PSOX("NOPSDRPH" INIT+2!, INIT+4*, DT+13, NFILE+4, ANQ+21, ANQ+22
PSOX("NOUN" NFILE+6
PSOX("ODOSE" NFILE+8
PSOX("PHARMACIST" DT+15*
PSOX("PROVIDER" ANQ+6, ANQ+7
PSOX("ROUTE" NFILE+7
PSOX("RX #" NFILE+3
PSOX("SCHEDULE" NFILE+7
PSOX("SIG" NFILE+22, NFILE+23
PSOX("SINS" NFILE+25
PSOX("STATUS" DT+13*, NFILE+4*
PSOX("STOP DA TE" , DT*, DT+2, DT+7*, DT+10*
PSOX("TYPE OF RX" , DT+12*
PSOX("UNITS" NFILE+6
PSOX("VERB" NFILE+7
PSOX1 NFILE+5*, NFILE+12!, NFILE+13*, NFILE+41!, PS55+3*, PS55+4, PS55+5, PS55X+1!, FINISHP+2*, FINISHX+2!
PSOX2 FINISHP+2*, FINISHP+3, FINISHP+4, FINISHX+2!
PSOY NFILE+5!*, NFILE+12!
QTYTMP NFILE+15~, NFILE+16*, NFILE+17, NFILE+18, NFILE+20
RTE EOJ+2!
>> RXFL( ANQ+24*, FINISHP+1*, FINISHP+5*
SCH EOJ+2!
SIG NFILE+29!
SIG( NFILE+28
>> SIGOK NFILE+26
TITRX SAVETIT~, SAVETIT+1, SAVETIT+2, SAVETIT+3, SAVETIT+4, SAVETIT+5
TP NFILE+23*, NFILE+24!
U NFILE+16, NFILE+20
X INIT+1!, DT!, DT+11!, DT+12!, NFILE+3*!, ANQ+1*, ANQ+2!, ANQ+11*, ANQ+15!
>> X1 INIT+5*, DT+11*
>> X2 INIT+5*, INIT+6*, INIT+7*, INIT+8, INIT+9*, INIT+10*, DT+11*
>> XRT0 START+4
>> XRTL START+1
>> XRTN START+4*
XX ACLOG+1~, ACLOG+3*, ACLOG+6*, ACLOG+7, ACLOG+8*, ACLOG+9
Y NFILE+3!, ANQ+2!, ANQ+13, ANQ+15!

Marked Items

Name Field # of Occurrence
$T( START+4
$T(DD+PSOX1 NFILE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All