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

Package: Consult Request Tracking

Routine: GMRCSRVS


Information

GMRCSRVS ;SLC/DCM,JFR - Add/Edit services in File 123.5. ;30-Jul-2013 17:56;DU

Source Information

Source file <GMRCSRVS.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 EN^DDIOL  (,$$FIND1)^DIC  (,UPDATE,WP)^DIE  $$GET1^DIQ  ^DIR  
Consult Request Tracking 2 SVC^GMRC101H  PTRCLN^GMRCU  
Kernel 2 $$NOW^XLFDT  MSG^XQOR  
IHS Standard Terminology 1 ($$CNCLKP,$$SUBLST)^BSTSAPI  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Consult Request Tracking 2 GMRC CLONE PROSTHETICS  GMRC SETUP REQUEST SERVICES  

Entry Points

Name Comments DBIA/ICR reference
NOED(SERV) ;
EN ;set up services entry point
END
INPUT(X,GMRCDA) ; INPUT TRANSFORM FOR THE SUB-SERVICE/SPECIALTY (#.01) FIELD
; OF THE SUB-SERVICE (#123.51) FILE WHICH IS A SUB-FILE OF THE
; SUB-SERVICE (#10) FIELD OF THE REQUEST SERVICES (#123.5) FILE.
PARSE(ARRAY) ;TAKE ARRAY VALUE AND PARSE INTO PIECES SHORTER THAN 70 CHARACTERS
READ(GMRC0,GMRCA,GMRCB,GMRCH,GMRCL,GMRCS) ;
IND() ;Change choices on clin indication
YESNO(X,Y) ;YES/NO QUESTION/RESPONSE
PARSE1
INPUTQ
GETAPP(GMRIEN) ;get text to append
DUPCHK ;CHECK FOR CONSULT SERVICES APPEARING AS PART OF THE CONSULT SERVICE
CLONPSAS ; clone a PROSTHETICS service
; choose service and text to append
CONFIN(RET,XQAID) ;EP

External References

Name Field # of Occurrence
$$CNCLKP^BSTSAPI EN+30
$$SUBLST^BSTSAPI EN+42
EN^DDIOL INPUTQ, DUPCHK+21, DUPCHK+26
^DIC EN+5, EN+52
$$FIND1^DIC GETAPP+13
^DIE EN+11, EN+58
UPDATE^DIE CLONPSAS+19, CONFIN+14
WP^DIE CLONPSAS+24
$$GET1^DIQ EN+27, CONFIN+7
^DIR EN+37, READ+21, YESNO+8, IND+6
SVC^GMRC101H EN+19
PTRCLN^GMRCU EN+20
$$NOW^XLFDT CONFIN+12
MSG^XQOR EN+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"SNOMED Consult Type"
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: !,"Current value is: "_DESC,!
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+20
Function Call: WRITE
  • Prompt: !,"Failed to create new entry. Please try again"
  • Line Location: CLONPSAS+20
Function Call: WRITE
  • Prompt: !!,GMRCNWNM," created",!
  • Line Location: CLONPSAS+21
Function Call: WRITE
  • Prompt: !!,"The new Service is currently DISABLED. To activate this service for use in"
  • Line Location: CLONPSAS+25
Function Call: WRITE
  • Prompt: !,"the Prosthetics interface, you MUST use the Setup Consult Services option"
  • Line Location: CLONPSAS+26
Function Call: WRITE
  • Prompt: !,"and delete the DISABLED flag from the SERVICE USAGE field.",!
  • Line Location: CLONPSAS+27
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETAPP+4
Function Call: WRITE
  • Prompt: !!,$C(7),"This service already exists, you'll have to try again!",!
  • Line Location: GETAPP+14
Function Call: WRITE
  • Prompt: !,"The new service name will be:"
  • Line Location: GETAPP+16
Function Call: WRITE
  • Prompt: !,?5,GMRCNWNM,!
  • Line Location: GETAPP+17
Routine Call
  • DIE
  • Line Location:
    • CLONPSAS+19
    • CONFIN+14
Routine Call
  • DIE
  • Line Location:
    • EN+11
    • EN+58
Routine Call
  • DIR
  • Line Location:
    • EN+37
    • READ+21
    • YESNO+8
    • IND+6
Routine Call
  • DIC
  • Line Location:
    • GETAPP+13
Routine Call
  • DIC
  • Line Location:
    • EN+5
    • EN+52
Routine Call
  • DIE
  • Line Location:
    • CLONPSAS+24

Used in RPC

RPC Name Call Tags
GMRCSRVS CONFIN CONFIN

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^GMR(123.5 - [#123.5] Classic Fileman Calls,  FIND1^DIC,  GET1^DIQ,  WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] CONFIN+5
^GMR(123.5 - [#123.5] EN+7, EN+9, EN+13, EN+14, EN+16, EN+17, EN+18, NOED+1, NOED+3, GETAPP+12
, INPUT+22, DUPCHK+5, DUPCHK+11, DUPCHK+14, YESNO+3, IND+4
^TMP("GMRC INPUT" INPUT+13!, INPUT+15*, INPUT+16*, INPUT+17*, INPUT+19, INPUT+20, INPUT+24, INPUT+25*, INPUT+26*, INPUT+27*
, INPUT+28!
^TMP("GMRCSNO" EN+24!, EN+56
^TMP($J EN+24!, EN+44*, EN+45*, EN+47*

Label References

Name Line Occurrences
$$GETAPP CLONPSAS+10
$$READ EN+67, CLONPSAS+7, GETAPP+9, GETAPP+18
EN EN+68
END EN+5, EN+67
INPUTQ INPUT+14
PARSE DUPCHK+12, DUPCHK+14
PARSE1 PARSE1+4
YESNO DUPCHK+24

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AIEN CONFIN+1~, CONFIN+10*, CONFIN+11, CONFIN+12, CONFIN+13
ARRAY DUPCHK+2~, DUPCHK+11*, DUPCHK+12, DUPCHK+14*, DUPCHK+21, PARSE~, PARSE1, PARSE1+1, PARSE1+2, PARSE1+3*
, PARSE1+4
ARRAY( DUPCHK+9*, DUPCHK+10*, DUPCHK+15*, DUPCHK+16*, DUPCHK+17*, DUPCHK+18*, DUPCHK+19*, DUPCHK+20*, PARSE1*, PARSE1+2*
ARRAYSP PARSE+1~, PARSE1+1*
CCT EN+25~, EN+27*, EN+28, EN+33
CNT EN+25~, EN+43*, EN+44, EN+45
COUNT DUPCHK+2~, DUPCHK+5*, DUPCHK+7, DUPCHK+8*, DUPCHK+9*, DUPCHK+10*, DUPCHK+15*, DUPCHK+16*, DUPCHK+17*, DUPCHK+18*
, DUPCHK+19*, DUPCHK+20*, PARSE1*, PARSE1+2*
CT EN+25~, EN+26*, EN+46*, EN+47
>> D0 INPUT+10
DA EN+8*, EN+13, EN+55!, EN+57*, END!, IND+4
DEF IND+1~
DESC EN+25~, EN+26*, EN+32*, EN+33*, EN+35, EN+51
DIC EN+3~, EN+4*, EN+10, EN+25~, EN+50*, END!
DIC("A" EN+4*, EN+50*
DIC("B" EN+51*
DIC(0 EN+4*, EN+50*
DIE EN+10*, EN+25~, EN+55!, EN+57*, END!
DIE("NO^" EN+10*
>> DIQUIET DUPCHK+22
DIR EN+37!, READ+11~, YESNO+1~, IND+1~
DIR("?" EN+37*, READ+17*, READ+18*, YESNO+6*, YESNO+7*, IND+5*
DIR("A" EN+36*, READ+14*, READ+15*, YESNO+3*, IND+3*
DIR("B" READ+16*, YESNO+4*, IND+4*
DIR("S" READ+19*
DIR("T" YESNO+5*
DIR(0 EN+36*, READ+13*, YESNO+2*, IND+2*
DIROUT READ+11~, READ+22, YESNO+1~, YESNO+8
DIRUT READ+11~, READ+22, YESNO+1~
DLAYGO EN+3~, EN+4*
DR EN+10*, EN+55!, EN+57*, END!
DTOUT EN+3~, EN+5!, EN+38, END!, READ+11~, READ+22, YESNO+1~, YESNO+8
DUOUT EN+3~, EN+5!, END!, READ+11~, READ+22, YESNO+1~, YESNO+8
DUZ CONFIN+7, CONFIN+13
ERR CONFIN+1~, CONFIN+15, CONFIN+17!
FDA CLONPSAS+3~, CONFIN+1~, CONFIN+17!
FDA( CONFIN+11*, CONFIN+12*, CONFIN+13*
FDA(1 CLONPSAS+12*, CLONPSAS+13*, CLONPSAS+14*, CLONPSAS+15*, CLONPSAS+16*, CLONPSAS+17*, CLONPSAS+18*
FL END!
GMRC CLONPSAS+3~, CLONPSAS+9!, GETAPP+1~, GETAPP+11!
GMRC("A" CLONPSAS+5*, CLONPSAS+7, GETAPP+6*, GETAPP+9
GMRC("S" CLONPSAS+6*, CLONPSAS+7
GMRC(0 CLONPSAS+4*, CLONPSAS+7, GETAPP+5*, GETAPP+9
GMRC0 EN+63~, EN+64*, EN+67, READ~, READ+12, READ+13
GMRCA EN+63~, EN+64*, EN+67, READ~, READ+14
GMRCA("A" READ+15
GMRCACT EN+2~, EN+9*, EN+13*, EN+15*, EN+16*, EN+17*, EN+18*, EN+19, END!
GMRCANS END!
GMRCB EN+63~, EN+64*, EN+67, READ~, READ+16
GMRCCPY CLONPSAS+3~, CLONPSAS+7*, CLONPSAS+8, CLONPSAS+10, CLONPSAS+23
GMRCDA INPUT~, INPUT+9, INPUT+10*, INPUT+11, INPUT+14, INPUT+15, INPUT+17
GMRCERR CLONPSAS+3~
GMRCH EN+63~, EN+65*, EN+67, READ~, READ+18
GMRCH("?" READ+17
GMRCHILD INPUT+12~, INPUT+20*, INPUT+22
GMRCHL GETAPP+1~, GETAPP+9, GETAPP+11!
GMRCHL("?" GETAPP+7*, GETAPP+8*
GMRCL EN+63~, EN+66*, EN+67, READ~, READ+20
GMRCLINE READ+11~, READ+20*
GMRCMSG EN+5!, EN+19, EN+60!, END!
GMRCNEW CLONPSAS+3~, CLONPSAS+20
GMRCNEW(1 CLONPSAS+22
GMRCNT INPUT+12~, INPUT+18*, INPUT+19*, INPUT+20, PARSE+1~, PARSE1+1*, PARSE1+2, PARSE1+3
GMRCNWNM CLONPSAS+2~, CLONPSAS+10*, CLONPSAS+11, CLONPSAS+12, CLONPSAS+21, GETAPP+1~, GETAPP+2*, GETAPP+9*, GETAPP+10*, GETAPP+12*
, GETAPP+13, GETAPP+15*, GETAPP+17, GETAPP+20*, GETAPP+22
GMRCOLDN EN+9*, EN+17, EN+60!
GMRCOLDS EN+2~, EN+8*, EN+9*, EN+18, EN+60!
GMRCOLDU EN+2~, EN+8*, EN+9*, EN+16, EN+60!
GMRCON DUPCHK+2~, DUPCHK+23*, DUPCHK+25, YESNO+9*
GMRCOSNM EN+2~, EN+8*, EN+15
GMRCREA END!
GMRCROOT CLONPSAS+2~, CLONPSAS+23*, CLONPSAS+24
GMRCS READ~, READ+19
GMRCSAFE EN+2~, EN+7*
GMRCSIEN CLONPSAS+2~, CLONPSAS+22*, CLONPSAS+24
GMRCSRVC EN+2~, EN+8*, EN+13, EN+14, EN+16, EN+17, EN+18, EN+19, EN+27, EN+57
, END!
GMRCSRVS EN+60!
GMRCSSNM EN+2~, EN+14*, EN+15, EN+19, EN+60!, END!
GMRIEN GETAPP~, GETAPP+12
GMRPARNT INPUT+12~, INPUT+21*, INPUT+22*, INPUT+23, INPUT+24, INPUT+25, INPUT+27
GMRQ INPUT+12~, INPUT+14*, INPUT+18*, INPUT+19, INPUT+22, INPUT+23*, INPUTQ
I GETAPP+1~, GETAPP+3*
IEN CONFIN+1~, CONFIN+17!
IN EN+25~, EN+28*, EN+30, EN+40*, EN+42
NAME NOED+2~, NOED+3*, NOED+4, NOED+5, NOED+6, NOED+7
ND EN+9*, EN+18*, EN+60!
OK GETAPP+1~, GETAPP+18*, GETAPP+19, GETAPP+20
ORY CONFIN+1~, CONFIN+2*, CONFIN+4*, CONFIN+5, CONFIN+7, CONFIN+10
OUT EN+25~, EN+29*, EN+30, EN+41*, EN+42, EN+43, EN+44, EN+45
PARENT DUPCHK+2~, DUPCHK+3*, DUPCHK+5*, DUPCHK+13*, DUPCHK+14*
QTFLG GETAPP+1~, GETAPP+3, GETAPP+10*, GETAPP+19*, GETAPP+21*
RET CONFIN~, CONFIN+2*, CONFIN+15*, CONFIN+16*
REVCODE END!
RLEVCODE END!
SCODE EN+25~, EN+56*, EN+57
SERV NOED~, NOED+1, NOED+3
SNOMED EN+25~, EN+53*, EN+54, EN+56
TYPE CONFIN+1~, CONFIN+9*, CONFIN+11
U EN+44, EN+45, EN+47, EN+56, READ+12, READ+22, NOED+3, GETAPP+12, GETAPP+19
VAR EN+25~
VAR(1 EN+32
X EN+25~, EN+30*, EN+31, EN+39, EN+42*, READ+11~, INPUT~, INPUT+8!, INPUT+9, INPUT+11!
, INPUT+14, INPUT+23, INPUTQ!, DUPCHK+5, DUPCHK+11, DUPCHK+14, DUPCHK+24, DUPCHK+25!, YESNO~, YESNO+3
XQAID CONFIN~, CONFIN+4
Y EN+5, EN+7, EN+8, EN+9, EN+53, EN+55!, END!, READ+11~, READ+23, DUPCHK+24
, YESNO~, YESNO+9, IND+1~, IND+7*, IND+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All