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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ECXFEKE1

Package: DSS Extracts

Routine: ECXFEKE1


Information

ECXFEKE1 ;BIR/DMA,CML-Print Feeder Keys (CONTINUED); [ 03/28/96 5:44 PM ] ;5/22/19 11:51

Source Information

Source file <ECXFEKE1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ^%ZISC  $$RJ^XLFSTR  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
DSS Extracts 1 ECXFEKEY  

Entry Points

Name Comments DBIA/ICR reference
SELLABKE() ;** Function to prompt user selection of type of Lab Feeder Key
SUR
S1 ;;050^GENERAL(OR WHEN NOT DEFINED BELOW)
S2 ;;051^GYNECOLOGY
S3 ;;052^NEUROSURGERY
S4 ;;053^OPHTHALMOLOGY
S5 ;;054^ORTHOPEDICS
S6 ;;055^OTORHINOLARYNGOLOGY (ENT)
S7 ;;056^PLASTIC SURGERY (INCLUDES HEAD AND NECK)
S8 ;;057^PROCTOLOGY
S9 ;;058^THORACIC SURGERY (INC. CARDIAC SURG.)
S10 ;;059^UROLOGY
S11 ;;060^ORAL SURGERY (DENTAL)
S12 ;;061^PODIATRY
S13 ;;062^PERIPHERAL VASCULAR
S14 ;;500^CARDIAC SURGERY
S15 ;;501^TRANSPLANTATION
S16 ;;502^ANESTHESIOLOGY
DEN
D08C ;;COMPLETE EXAM
D08S ;;SCREENING EXAM
D09 ;;ADMIN PROCEDURE
D10 ;;X-RAYS EXTRAORAL #
D11 ;;X-RAYS INTRAORAL #
D12 ;;PROPHY NATURAL DENTITION
D13 ;;PROPHY DENTURE
D14 ;;OPERATING ROOM
D15 ;;NEOPLASM CONFIRMED MALIGNANT #
D16 ;;NEOPLASM REMOVED #
D17 ;;BIOPSY/SMEAR #
D18 ;;FRACTURE #
D20 ;;OTHER SIGNIF. SURG. (CTV)
D21 ;;SURFACES RESTORED #
D22 ;;ROOT CANAL THERAPY #
D23 ;;PERIDONTAL QUADS (SURGICAL) #
D24 ;;PERIO QUADS (ROOT PLANE) #
D25G ;;PATIENT ED (CTV) GROUP
D25I ;;PATIENT ED (CTV) INDIVIDUAL
D26S ;;SPOT CHECK EXAM (STAFF)
D26F ;;SPOT CHECK EXAM (FEE)
D27 ;;INDIVIDUAL CROWNS #
D28 ;;POST & CORES #
D29 ;;FIXED PARTIALS (ABUT) #
D30 ;;FIXED PARTIALS (PONT ONLY) #
D31 ;;REMOVABLE PARTIALS #
D32 ;;COMPLETE DENTURES #
D33 ;;PROSTHETIC REPAIR #
D34 ;;SPLINT AND SPEC. PROCESS (CTV)
D35 ;;EXTRACTIONS #
D36 ;;SURGICAL EXTRACTIONS #
D37 ;;OTHER SIG TREATMENT (CTV)
D38 ;;DIVISION (STATION DIVISION)
D39C ;;COMPLETIONS
D39T ;;TERMINATIONS
D40 ;;INTERDISCIPLINARY CONSULT
D41 ;;EVALUATIONS
D42 ;;PRE AUTHORIZATION/2ND OPINION
D43M ;;SPOT CHECK DISCREPANCY (STAFF)
D43R ;;SPOT CHECK DISCREPANCY (FEE)
PRINT ;
HEAD ;
ADD0(ECXFKEY) ;** Append zeros to decimal place on feeder key

External References

Name Field # of Occurrence
^%ZISC PRINT+18
^DIR SELLABKE+15, PRINT+15, HEAD+3
$$RJ^XLFSTR SUR+9, PRINT+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The Feeder Key List for the Feeder System LAB can be printed by:"
  • Line Location: SELLABKE+9
Function Call: WRITE
  • Prompt: !,?5,"(O)ld Feeder Key sort by Local Feeder Key values"
  • Line Location: SELLABKE+10
Function Call: WRITE
  • Prompt: !,?5,"(N)ew Feeder Key sort by LMIP Codes"
  • Line Location: SELLABKE+11
Function Call: WRITE
  • Prompt: !,?2,$E(EC9,2,99),?24,$E($P(^TMP($J,EC,EC1,EC2),U),1,40),?67,$$RJ^XLFSTR($P(^(EC2),U,2),12)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?5,EC9,?27,^TMP($J,EC,EC1,EC2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,?21,"Feeder Key List For Feeder System ",EC,?70,"Page: ",PG
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,?22,"(NEW Feeder Key from NDF Match)",!,?24,"Showing ",$S(PHATYPE="N":"Non-Drug",PHATYPE="D":"Drug",1:"All")_" feeder keys",!!,?2,"Feeder Key",?24,"Description",?66,"Price Per",!,?66,"Dispense Unit",!,LN,!
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !?21,$S(ECECS="O":"(OLD Feeder Key sorted by Category-Procedure)",1:"(NEW Feeder Key sorted by Procedure-CPT Code)")
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !?15,$S(ECLAB="O":"(OLD Feeder Key sorted by Local Feeder Key values)",1:" (NEW Feeder Key sorted by LMIP Codes)")
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !!,?5,"Feeder Key",?27,"Description",!,LN,!
  • Line Location: HEAD+9
Routine Call
  • DIR
  • Line Location:
    • SELLABKE+15
    • PRINT+15
    • HEAD+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX(728 - [#728] SELLABKE+13, SELLABKE+14
^SRO(131.9 - [#131.9] SUR+9
^TMP("ECXPORT" PRINT+9*, PRINT+10*, PRINT+11*, HEAD+1*
^TMP($J SUR*, SUR+1*, SUR+2*, SUR+3*, SUR+4*, SUR+5*, SUR+6*, SUR+7*, SUR+8*, SUR+9*
, DEN*, PRINT+3, PRINT+7, PRINT+10, PRINT+11, PRINT+13, PRINT+14, PRINT+17!

Label References

Name Line Occurrences
$$ADD0 PRINT+6
HEAD PRINT+3, PRINT+12

Naked Globals

Name Field # of Occurrence
^( SUR+9, PRINT+13
^(0 SUR+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT PRINT+9, PRINT+10, PRINT+11*, HEAD+1*
>> COL HEAD+1
DIR SELLABKE+18!, PRINT+15!, PRINT+17!, HEAD+3!
DIR("B" SELLABKE+13*, SELLABKE+14*
DIR(0 SELLABKE+12*, PRINT+15*, HEAD+3*
DIRUT SELLABKE+16, SELLABKE+17, SELLABKE+18!, PRINT+17!
DTOUT SELLABKE+18!
DUOUT SELLABKE+18!, PRINT+17!
EC SUR*, SUR+1, SUR+9*, DEN*, PRINT+3*, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+9
, PRINT+10, PRINT+11, PRINT+13, PRINT+14, PRINT+17!, HEAD+1, HEAD+5, HEAD+6, HEAD+7, HEAD+8
EC1 SUR*, DEN*, PRINT+3*, PRINT+7, PRINT+10, PRINT+11, PRINT+13, PRINT+14, PRINT+17!
EC2 SUR*, SUR+1, SUR+2, SUR+3, SUR+4, SUR+5, SUR+6, SUR+7, SUR+8, PRINT+3*
, PRINT+7*, PRINT+10, PRINT+11, PRINT+13, PRINT+14, PRINT+17!
EC3 PRINT+17!
EC9 PRINT+3*, PRINT+4*, PRINT+5*, PRINT+6*, PRINT+10, PRINT+13, PRINT+14, PRINT+17!
ECCSC PRINT+17!
ECD SUR*, SUR+1, SUR+2, SUR+3, SUR+4, SUR+5, SUR+6, SUR+7, SUR+8, SUR+9*
, DEN*, PRINT+17!
ECECS PRINT+5, PRINT+9, PRINT+17!, HEAD+7
ECLAB PRINT+9, PRINT+17!, HEAD+8
ECLIST PRINT+17!
ECNDC PRINT+17!
ECNDF PRINT+17!
ECNFC PRINT+17!
ECPHA PRINT+17!
ECSC PRINT+17!
ECST PRINT+17!
ECXD ADD0+7~
ECXDEC ADD0+7~, ADD0+8*, ADD0+9, ADD0+10*, ADD0+11
ECXFEKEY ADD0+7~, ADD0+11*, ADD0+12
ECXFKEY ADD0~, ADD0+8, ADD0+11
ECXKEY SELLABKE+8~, SELLABKE+16*, SELLABKE+17*, SELLABKE+19
>> ECXPORT PRINT+8, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, HEAD+1
ECY PRINT+17!
IOF PRINT+18, HEAD+4
IOSL PRINT+12
IOST PRINT+15, PRINT+18, HEAD+2, HEAD+3, HEAD+4
JJ PRINT+16*, PRINT+17!, HEAD+2*
>> LECOL HEAD+1
LN PRINT+2*, PRINT+17!, HEAD+6, HEAD+9
LPCNT ADD0+7~, ADD0+10*
LPEND ADD0+7~, ADD0+9*, ADD0+10
P1 PRINT+17!
P2 PRINT+17!
P3 PRINT+17!
>> PCOL HEAD+1
PG PRINT+2*, PRINT+17!, HEAD+3, HEAD+5*
>> PHATYPE HEAD+6
POP PRINT+17!
QFLG PRINT+2*, PRINT+3, PRINT+7, PRINT+12, PRINT+15, PRINT+17!, HEAD+3*
SC PRINT+17!
SS PRINT+16*, PRINT+17!, HEAD+2*
U SUR, SUR+9, PRINT+10, PRINT+11, PRINT+13
X PRINT+17!
Y SELLABKE+17, SELLABKE+18!, PRINT+17!, HEAD+3
>> ZTQUEUED PRINT+18
>> ZTREQ PRINT+18*

Marked Items

Name Field # of Occurrence
$T(@(3) SUR
$T(DEN+EC DEN
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All