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 ;08/09/93

Source Information

Source file <PSON52.m>

Call Graph

Call Graph

Call Graph Total: 25

Package Total Call Graph
Outpatient Pharmacy 13 ECMESND^PSOBPSU1  RXACT^PSOBPSU2  ($$STATUS,$$SUBMIT)^PSOBPSUT  $$TECH2^PSODGDGP  ICD^PSODIAG  $$GETNDC^PSONDCUT  NOOR^PSONEW  GACT^PSOPFSU0  
$$PSOET^PSOREJP3  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  (BBRX,ORC)^PSORN52C  SUS^PSORXL  
VA FileMan 5 (C,NOW)^%DTC  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  
Order Entry Results Reporting 1 $$SUBSCRIB^ORDEA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 4 PSONEW  PSOORNE1  PSOORNEW  PSORN52  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC DT, DT+10
NOW^%DTC DT+11, ACLOG+2, ANQ
T0^%ZOSV START+1
T1^%ZOSV START+4
FILE^DICN NFILE+3, ANQ+1
^DIE DIK+1
IX1^DIK DIK+2
$$GET1^DIQ DT+9, ANQ+20, SAVETIT+3, SAVETIT+5
$$SWSTAT^IBBAPI IBQ+5
$$SUBSCRIB^ORDEA ACLOG+14
ECMESND^PSOBPSU1 ANQ+14
RXACT^PSOBPSU2 SAVETIT+3, SAVETIT+5
$$STATUS^PSOBPSUT ANQ+19
$$SUBMIT^PSOBPSUT ANQ+13
$$TECH2^PSODGDGP ANQ+5
ICD^PSODIAG IBQ+4
$$GETNDC^PSONDCUT ANQ+20
NOOR^PSONEW NFILE+1
GACT^PSOPFSU0 IBQ+5
$$PSOET^PSOREJP3 ANQ+16
$$HDLG^PSOREJU1 ANQ+18
$$FIND^PSOREJUT ANQ+17
BBRX^PSORN52C FINISHX+1
ORC^PSORN52C DIK+3
SUS^PSORXL ANQ+8
$$DS^PSSDSAPI NFILE+4
PSOUL^PSSLOCK EOJ+3
SAVNDC^PSSNDCUT ANQ+20
$$FMADD^XLFDT DT+3, DT+5
$$FMDIFF^XLFDT DT+4
$$FMTE^XLFDT ACLOG+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
^PS(52.52 - [#52.52] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DILOCKTM" PS55+1
^PS(52.52 - [#52.52] ANQ, ANQ+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+6, NFILE+6*, NFILE+7*, NFILE+8*, NFILE+9*, NFILE+11*, NFILE+14, NFILE+18*, NFILE+21*, NFILE+22*
, NFILE+23*, NFILE+25*, NFILE+26*, NFILE+28*, NFILE+29*, NFILE+30*, NFILE+33*, NFILE+35*, NFILE+36*, NFILE+38*
, NFILE+39*, NFILE+40*, 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+6*
^PSRX("B" IBQ+8, EOJ+2
^TMP("PSODAI" NFILE+32, NFILE+34, NFILE+35, NFILE+37!
^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+5, ANQ+6

Label References

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

Naked Globals

Name Field # of Occurrence
^("IB" START+6
^(0 NFILE+26*, NFILE+36*, PS55+2*
^(2 START+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% INIT+9~*, INIT+10*, DT+11!, ACLOG+2, ANQ, ANQ+1, ANQ+2!
%DT INIT+1!
ACTION ANQ+11~, ANQ+13, ANQ+14*, ANQ+16*, ANQ+18*
ANQDATA ANQ, ANQ+2!
ANQREM ANQ+2!
>> 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
D NFILE+21*, NFILE+22!, NFILE+26*, NFILE+31!
DA DIK+1*, DIK+2!*, DIK+3*, ANQ+8*!, EOJ+2!
DAI NFILE+34*, NFILE+35, NFILE+37!
DD NFILE+3!, ANQ+1!
>> DEA INIT+3*
>> DEA("CS" INIT+7
DIC NFILE+3*!, ANQ+1*!
DIC(0 NFILE+3*, ANQ+1*
DIE DIK+1*!
DIK DIK+2!*
DLAYGO NFILE+3*!, ANQ+1*!
DO NFILE+3!, ANQ+1!
DR DIK+1*!
DT NFILE+22, NFILE+28, ANQ+8
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+5, ANQ+6
EXP DT+3~*, DT+4, DT+5*, DT+6
HLDSIG NFILE+31!
>> 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+11, NFILE, NFILE+2, NFILE+29, ACLOG+14
OTHDOS EOJ+2!
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, PS55X, ANQ+5
>> PSODRUG("DEA" INIT+3
>> PSODRUG("NAME" ACLOG+5
>> PSODRUG("OI" NFILE+2
PSOERX ANQ+11~, ANQ+12*, ANQ+13, ANQ+14, ANQ+16, ANQ+17, ANQ+18, ANQ+19, ANQ+20
PSOFINFL NFILE+31!
>> PSOID INIT+1
PSOINSFL NFILE+28, NFILE+31!
PSON52 NFILE+5*, EOJ+2!
PSON52( NFILE+4*, NFILE+5*, NFILE+11
PSON52("QFLG" START+2, INIT+5*
>> PSONEW("# OF REFILLS" , ACLOG+13
>> PSONEW("CLERK CODE" , NFILE+2*
>> PSONEW("DAYS SUPPLY" , ACLOG+11
>> PSONEW("DFLG" START+2, NFILE, NFILE+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+8
PSOPRC EOJ+2!
>> PSORX("MAIL/WINDOW" FINISHX+1
>> PSORX("PATIEN T STATUS" , INIT+9
>> PSORX("PHARM" DT+14!
>> PSORX("PSOL" FINISHP+1*, FINISHP+2, FINISHP+3*, FINISHP+4*
>> PSORX("VERIFY" DT+12
>> PSORXED("ENT" EOJ+2!
>> PSORXED("INS" EOJ+2!
PSOSCFLD IBQ+1~*, IBQ+2, IBQ+3!
>> PSOSCP IBQ+1, IBQ+2
>> PSOSIGFL NFILE+2, NFILE+29
>> PSOSITE ANQ+20
PSOTFIN ANQ+4~, ANQ+5*, ANQ+6
PSOTITRX DT+8, DT+9, IBQ+6, IBQ+7!
PSOX EN~, ANQ+5
PSOX("# OF RE FILLS" , INIT+5, DT+2, DT+10
PSOX("55 IEN" , PS55+4*
PSOX("CHCS NU MBER" , NFILE+38
PSOX("CONJUNCTION" NFILE+7
PSOX("COPIES" DT+13*
PSOX("CS" INIT+2*, INIT+3*, INIT+4, INIT+7, DT+4, DT+5, NFILE+30
PSOX("DAYS SU PPLY" , INIT+5, INIT+7, DT+3, DT+10
PSOX("DISPENS ED DATE" , DT+11*
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+39
PSOX("FILL DA TE" , DT+2, DT+3, DT+10, DT+11, ANQ+8
PSOX("INS" EOJ+2!
PSOX("IRXN" START+6, NFILE+3*, NFILE+4, NFILE+5, NFILE+6, NFILE+7, NFILE+8, NFILE+9, NFILE+11, NFILE+14
, NFILE+18, NFILE+21, NFILE+22, NFILE+23, NFILE+25, NFILE+26, NFILE+28, NFILE+29, NFILE+30, NFILE+33
, NFILE+35, NFILE+36, NFILE+38, NFILE+39, NFILE+40, 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+5, ANQ+8, ANQ+12, 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+11*
PSOX("NEWCOPAY" NFILE+40, IBQ+7!
PSOX("NEXT PO SSIBLE REFILL" , DT+10*
PSOX("NOPSDRPH" INIT+2!, INIT+4*, DT+12, NFILE+4, ANQ+5, ANQ+6
PSOX("NOUN" NFILE+6
PSOX("ODOSE" NFILE+8
PSOX("PHARMACIST" DT+14*
PSOX("ROUTE" NFILE+7
PSOX("RX #" NFILE+3
PSOX("SCHEDULE" NFILE+7
PSOX("SIG" NFILE+20, NFILE+21
PSOX("SINS" NFILE+23
PSOX("STATUS" DT+12*, NFILE+4*
PSOX("STOP DA TE" , DT*, DT+2, DT+6*, DT+9*
PSOX("TYPE OF RX" , DT+11*
PSOX("UNITS" NFILE+6
PSOX("VERB" NFILE+7
PSOX1 NFILE+5*, NFILE+10!, NFILE+11*, NFILE+31!, 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+10!
QTYTMP NFILE+13~, NFILE+14*, NFILE+15, NFILE+16, NFILE+18
RTE EOJ+2!
>> RXFL( ANQ+8*, FINISHP+1*, FINISHP+5*
SCH EOJ+2!
SIG NFILE+27!
SIG( NFILE+26
>> SIGOK NFILE+24
TITRX SAVETIT~, SAVETIT+1, SAVETIT+2, SAVETIT+3, SAVETIT+4, SAVETIT+5
TP NFILE+21*, NFILE+22!
U NFILE+14, NFILE+18
X INIT+1!, DT!, DT+10!, DT+11!, NFILE+3*!, ANQ+1*, ANQ+2!
>> X1 INIT+5*, DT+10*
>> X2 INIT+5*, INIT+6*, INIT+7*, INIT+8, INIT+9*, INIT+10*, DT+10*
>> 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!

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