SCMCWSUT ;ALB/ART - PCMM Web Call Patient Summary Web Service ;09/11/2014
Source file <SCMCWSUT.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | FIND^DIC $$GET1^DIQ |
Web Services Client | 1 | $$SNAME4KY^XOBWLIB |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Order Entry Results Reporting | 1 | ORWPT1 |
Scheduling | 1 | SCMCWS1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
SETUP(SCDATA) | ;Web service setup
; Lookup server name ; Validate server name ; Validate service name ; Get REST request object ; Inputs: SCDATA - array of variables, passed by reference ; Output: ; Returns: success = 1 ; failure = 0^error message |
|
LKUPSRVR(SCNAME,SCLIST) | ; Web Server Lookup
; Inputs: SCNAME - name of the server ; Output: SCLIST - list of matching IENs, by reference ; ien^name |
|
LKUPSRVS(SCNAME,SCLIST) | ; Web Service Lookup
; Inputs: SCNAME - name of the service ; Output: SCLIST - list of matching IENs and names, by reference ; ien^name |
|
CPRSHEAD(SCDFN) | ;Get data for CPRS PCMMR Header
; Inputs: SCDFN - Patient DFN ; Returns: String of PACT info from Outpatient Profile (404.41), CPRS Header Text (.06) |
|
FileNo | Call Tags |
---|---|
^XOB(18.02 - [#18.02] | FIND^DIC |
^XOB(18.12 - [#18.12] | FIND^DIC |
^SCPT(404.41 - [#404.41] | GET1^DIQ |
Name | Line Occurrences |
---|---|
LKUPSRVR | SETUP+18 |
LKUPSRVS | SETUP+23 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
I | LKUPSRVR+5~, LKUPSRVR+9*, LKUPSRVR+10*, LKUPSRVR+11, LKUPSRVS+5~, LKUPSRVS+9*, LKUPSRVS+10*, LKUPSRVS+11 |
SCDATA | SETUP~ |
SCDATA("serverName" | SETUP+15*, SETUP+18 |
SCDATA("serverNameKey" | SETUP+13 |
SCDATA("webServiceName" | SETUP+23 |
SCDFN | CPRSHEAD~, CPRSHEAD+4, CPRSHEAD+6 |
SCERR | LKUPSRVR+5~, LKUPSRVS+5~ |
SCIENS | CPRSHEAD+5~, CPRSHEAD+6*, CPRSHEAD+7 |
SCLIST | SETUP+10~, SETUP+18, SETUP+22~, SETUP+23, LKUPSRVR~, LKUPSRVS~ |
SCLIST( | LKUPSRVR+11*, LKUPSRVS+11* |
SCLIST(1 | SETUP+19, SETUP+24, LKUPSRVR+6*, LKUPSRVS+6* |
SCNAME | LKUPSRVR~, LKUPSRVR+8, LKUPSRVS~, LKUPSRVS+8 |
SCRC | SETUP+10~, SETUP+13*, SETUP+14 |
SCRET | LKUPSRVR+5~, LKUPSRVS+5~ |
SCRET("DILIST" | LKUPSRVR+10, LKUPSRVR+11, LKUPSRVS+10, LKUPSRVS+11 |
SCSERVER | SETUP+10~, SETUP+13, SETUP+15 |
SCTEXT | CPRSHEAD+5~, CPRSHEAD+7*, CPRSHEAD+8*, CPRSHEAD+9 |
Y | LKUPSRVR+5~, LKUPSRVS+5~ |